I noticed that there is a ‘Date’ type in VB, but no ‘Time’ type. So if you want to compare Dates you are fine, but for Time comparisons you are a bit stuffed. This is very simple and will allow you to convert times into numbers so that you can make easy comparisons with them.
This code demonstrates how to use the Adobe Acrobat 7.0 Browser Control (AcroPDF.dll) with Visual Basic 6.0. Commented and Explained for beginners use.
This a Barcode generator with bar39 and bar128. THIS BARCODE GENERATOR IS SIMILAR TO INDUSTRY RENOWN PRODUCT ‘ACTIVEBARCODE’ IN FUNCTIONALITY. I’ve put detail description of how these codes are generated. If you are a beginner or a novice to Barcode, it helps you to understand the Barcode algorithms I’ve used. I’ve developed it from scratch. Now with these… Read More »
CMultiBits is a class, with no dependencies, that handles bit manipulation in Byte, Integer, Long, Single, Double, Currency, Dates, and Long Arrays. (These are VarTypes 2 thru 7, 17 and 8195. The Long Arrays are in place of Decimals but can be expanded way beyond Decimal size. It should be noted that the class can only handle one… Read More »
It allows the end users to encode the necessary transactions for the products delivered by the supplier and the products delivered to the customer.
This code allows the user to find the area of circle by clicking a command button and then typing in the radius of the circle. It is very helpful to anyone working on a calculator project. I am also coming out with area of triangle and square. Private Sub Command1_Click() Dim Radius Dim Area Radius = InputBox(“Type In The… Read More »
Save a picture as a baseline JPG file using only vb code. Open source, NO THIRD PARTY DEPENDENCIES, and as fast as typical commercial software when compiled. All JPEG compression code is contained in a single class that can be added to existing projects. There is also an Integer DCT version of this class written by Ron van… Read More »
Given a fully qualified path and filename, returns only the filename. Module Function GetFileName(fname As String) As String Dim i As Long On Error Resume Next For i = Len(fname) To 1 Step -1 If Mid(fname, i, 1) = “\” Then Exit For End If Next i GetFileName = Trim(Mid(fname, i + 1))End Function Usage Private Sub Command1_Click() ‘ Good for removing the path MsgBox GetFileName(“C:\Windows\System\moricons.dll”)End Sub
A small and simple code to connect two computers using the TCP protocol with winsock control. I’ve added some comments in the code, so any1 should be able to understand easily. Read the ReadMe.txt file for usage instructions. Attachments File Uploaded Size 990-20190828-091633-TCP.zip 8/28/2019 9:16:33 AM 3643
NanoVB6 is a very compact VB6 version which is smaller than 5 MB when compressed. It is furthermore fully portable – so that it can be run from a usb stick or on BartPE. It is still able to run and compile your projects as long as all ActiveX DLLs, OCXs and TLBs etc. that you referenced within… Read More »