This is another example of animating an analog clock. This sample demonstrates a smooth motion of the hands giving a more realistic clock appearance. Also shows how to use the Polygon API Original Author: mike Returns Draws a clock on the form Attachments File Uploaded Size CODE_UPLOAD23.zip 9/3/2020 3:45:00 PM 3784
This code resizes a form and its controls according to the screen resolution. It also takes into account the size of the screen fonts (although this is untested!). Original Author: Mark Parter Inputs designwidth – the width that your app was designed at (i.e. 800 or 1024)designheight – the height that your app was designed at (i.e. 600 or… Read More »
Draws an animated StarField. A left-click with the mouse will move the StarField center to the mouse position, holding down the left mouse button while dragging the mouse will continually change the StarField center, holding down the right mouse button will activate a “hyperspace” effect (of sorts). The form can be resized. Each star’s size and brightness is… Read More »
(Also known as DocPreview) A functional program to provide print preview and actual printing facilities for RichText documents in a text editor. Written in VB, the program includes functions such as preview Zoom-in and Zoom-out, page margins setup, selection of any specific page to preview and selection of any ange of pages to print. It even allows you… Read More »
Do you ever want to have a easy possibility to get in contact with your users? Here it is! You just have to add the form to your projekt and config it before you compile your projekt! Your users just have to write their comment or bug report in a textbox and hit the send button. You will… Read More »
Encrypts and Decrypts a string easily Original Author: ND4SPD API Declarations Public Function Encrypt(text)For much = 1 To Len(text)word = Asc(Mid(text, much, 1)) + 10c$ = c$ & Chr(word)Encrypt = c$Next much End FunctionPublic Function Decrypt(text)For many = 1 To Len(text)jin = Asc(Mid(text, many, 1)) – 10d$ = d$ & Chr(jin)Decrypt = d$Next manyEnd Function Code ‘create 3 text… Read More »
I provide an easy to create the non-rectangle form with usercontrol. We may use the control to design a non-rectange form or a desktop animation easily. Original Author: Gwyshell Assumptions Sometime we will want to create a non-rectangle window to make our UI so Cool! But the only way to create a non-rectangle windows is just using the windows… Read More »
This code will check if a connection is opened to the internet , if not , it will show a messagebox ! easy … i like this way because am a new programmer!!! Original Author: DXB700 Assumptions 1- Add mswinsck.ocx to the form2- Add a command button to the form (Caption = Detect)3- Add a text box to the… Read More »
All fields in the selected table are processed and the AllowZeroLength property of the fields are set to either True or False, depending on the Status given as the finaal parameter The function returns a boolean value that can be used by the user to determin other operations. Original Author: Killcrazy Inputs strDatabase = Full database pathstrTableName = Name… Read More »
Checks you Microsoft Outlook Inbox for new Mail Items. Original Author: Tim Ford Assumptions Need to set “References” to Microsoft Outlook. Returns The number of new messages Code Dim objOutlook As Outlook.ApplicationDim objMapiName As Outlook.NameSpaceDim intCountUnRead As IntegerPrivate Sub Check_Mail_Click()Set objOutlook = New Outlook.ApplicationSet objMapiName = objOutlook.GetNamespace(“MAPI”) For I = 1 To objMapiName.GetDefaultFolder(olFolderInbox).UnReadItemCount intCountUnRead = intCountUnRead + 1 Next… Read More »