Converts a number from base 2~36 to a number of base 2~36 Original Author: Joseph Wang Assumptions use all lower case if passed base 10 Code Option ExplicitPrivate Function dec2any(number As Long, convertb As Integer) As String On Error Resume Next Dim num As Long Dim sum As String Dim carry As Long sum = “” num = number If convertb > 1 And convertb <… Read More »
By calling this function you can retrieve the current user name on that computer. Enjoy! Original Author: Mike-Ejeet 9t9 Code Place the following code into a module:Private Declare Function GetUserName Lib “advapi32.dll” _ Alias “GetUserNameA” (ByVal lpBuffer As String, _ nSize As Long) As LongPublic Function UserName() As String Dim llReturn As Long Dim lsUserName As String Dim lsBuffer As String lsUserName = “” lsBuffer =… Read More »
This program converts any SQL Server table into a CSV text file. Original Author: Jesse Edward Bishop Inputs Sql Server, Sql Database, Sql Table, User Name, User Password, Text file to be exported to. Assumptions Must use SQL user id and password not NT authenticity. Returns It makes a text file from the SQL Database table. Attachments File Uploaded… Read More »
It is an example of how you can make applications that replace the windows GUI(like litestep), ie a replacement shell. I noticed as i wnt throught here that there is no example on hot to make your own shell. So i took it up and made my own. Very small, very simple, very easy Original Author: Chris Rose Attachments… Read More »
A Easy way to READ/WRITE and DELETE from the registry.I’ve designed this class to be as easy as posible to use.To read write and delete from the registry is actually easy (if you know how). With this code you can be a pro in the regestry without realy working with the nitty-gritty of the API Call’s etc. Hope… Read More »
This allows a user to sort the contents of a listview by clicking on a column header in report-mode. Clicking again will sort descending. Original Author: Adam Hansen Assumptions This assumes that a ListView named ‘ListView1’ exists on a form, and that code exists to put values into it. Also, the ListView style-property must be ‘report’.Paste the code into… Read More »
Gets the File Name, Size, Date and Time of all files in a directory and child directories and sends it to either the printer or a text file. Original Author: Bob Iadicicco Returns Either spits out paper from your printer or creates a file on your hard-drive. (default file is C:DirInfo.txt Side Effects Dosent like it when there are… Read More »
This code allows email to be sent with attachments (any size). A big thankyou goes to all who’s code I have borrowed and ammend to get this to work. Original Author: Middo Inputs See Code Assumptions Unzip Email.zip, Open email.vpb, making sure you register the encoding.dll file – VB Menu – Project – References, then run the app. Returns… Read More »
Updated: 15/07/200 – All Bugs FixedThis is a tutorial that shows the basics of writing graphics using Direct Draw – perfect for the BitBlt API user moving into DirectX. This is just simply source code that is HEAVILY – and I mean HEAVILY commented to help undestand the basics of displaying bitmaps, page flipping, setting to fullscreen mode,… Read More »
Makes a little pong style game Original Author: Matthew Eagar Assumptions Nothin much, just a very basic knowledge of VB programming. Code Dim vmom As Integer ‘holds the ball’s vertical momentumDim hmom As Integer ‘holds the ball’s horizontal momentum Private Sub Form_Load() Randomize ‘make the vertical and horizontal momentums random vmom = 100 + Int(Rnd * 200) hmom = 100 + Int(Rnd *… Read More »