Category Archives: Visual Basic 6 (VB6)

Multiple-User Rich Text IP Chat

A multi-user chat server/client that can support unlimited users, and uses rich text in the messages, allowing colors, font-styles and different fonts. The user running the server can kick any person logged in. Requires: RichTextBo control, Winsock control, and Common Dialog control. Original Author: Joseph Huntley Attachments File Uploaded Size CODE_UPLOAD1398.zip 9/3/2020 3:45:00 PM 9841

16 and 32 bit functions to create

16 AND 32 bit functions to read/write ini files–very useful! Original Author: VB Qaid API Declarations ‘****************************************************‘* INI_sm.BAS *‘****************************************************Option Explicit#If Win16 ThenDeclare Function WritePrivateProfileString Lib “Kernel” (ByVal AppName As String, ByVal KeyName As String, ByVal NewString As String, ByVal filename As String) As IntegerDeclare Function GetPrivateProfileString Lib “Kernel” Alias “GetPrivateProfilestring” (ByVal AppName As String, ByVal KeyName As Any, ByVal… Read More »

add a horizontal scroll bar to a listbox or combo

add a horizontal scroll bar to a listbox or combo box Original Author: VB Qaid API Declarations #If Win16 ThenDeclare Function SendMessage Lib “User” (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long#ElseDeclare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,… Read More »

Access ODBC DB using SQL and a Data Control

This code will allow you to populate DBGrids and other bound data controls using a Data Control, SQL, and an ODBC DataBase. Original Author: Scott Lewis Assumptions Create a new form with a DBGrid and a Data Control. Set the datasource property on the grid to use the data control. Set the DB name property on the data control… Read More »

Creating a Screen Saver

Create a screen saver in VB! Original Author: VB Tips and Source Code Code In order to accomplish this task, start a new Visual Basic project. This example only requires a form – no VBXs or additional modules necessary. On the form, set the following properties: ÔÇóCaption = “” ÔÇóControlBox = False ÔÇóMinButton = False ÔÇóMaxButton = False ÔÇóBorderStyle… Read More »

Creating Program Manager Groups & Icons

Create program manager groups and icons from your code! Original Author: VB Tips and Source Code Inputs It requires 3 arguments to be passed to it. They are:1.The form that contains Label1 (x) 2.A string variable containing the group’s name (GroupName$) 3.A string variable containing the path to the group (*.GRP) file (GroupPath$) Code The first step is to… Read More »

Center an MDI Child Form Within the Parent

useful when you need to center an MDI child form within the parent windo Original Author: Chris Gibbs Inputs The SUB (CenterChild) requires two arguments. The first of these two arguments is the name of the MDI (parent) form. The second argument is the name of the MDI Child form. Code Sub CenterChild (Parent As Form, Child As Form)  Dim… Read More »

Rotate WMF

This program lets you rotate a Windows Meta File inside a picture box. Original Author: Emilio Aguirre API Declarations Some see code. Attachments File Uploaded Size CODE_UPLOAD1346.zip 9/3/2020 3:45:00 PM 51650

IsLoadedForm

Tells whether a form is loaded or not Original Author: Luca Faiazza Inputs ByVal pObjForm As Form Returns Boolean value Code Public Function IsLoadedForm(ByVal pObjForm As Form) As Boolean  Dim tmpForm As Form  For Each tmpForm In Forms    If tmpForm Is pObjForm Then      IsLoadedForm = True      Exit For    End If  Next  End Function

A Drawer : All about the paint program codes!

You can get many kinds of codes about paint applications like pencil tool, line,eraser, picker, gradation, open files, and more. You can configure options. And more!You can also get filters! Enjoy it! Original Author: Jongmin Baek Attachments File Uploaded Size CODE_UPLOAD1327.zip 9/3/2020 3:45:00 PM 49264