Programmingsite tutorials

font exists

admin — Sat, 14 Mar 2009 05:33:37 +0000

Public Function FontExists(FontName As String) As Boolean Dim oFont As New StdFont Dim bAns As Boolean oFont.Name = FontName bAns = StrComp(FontName, oFont.Name, vbTextCompare) = 0 FontExists = bAns End Function Private Sub Form_Load() MsgBox FontExists(”ARIAL”) End Sub Bookmark It Hide Sites $$('div.d94').each( function(e) { e.visualEffect('slide_up',{duration:0.5}) }); [...] Related posts:

active window title Private Declare Function GetForegroundWindow Lib “user32″ () As Long Private...

Related posts brought to you by Yet Another Related Posts Plugin.

File system object example

admin — Fri, 13 Mar 2009 03:38:28 +0000

‘Add a list box to the form and then add a reference to the Microsoft Scripting Runtime Private Sub Form_Load() Dim fldr As Folder Dim fso As New FileSystemObject Dim drv As Drive Set drv = fso.GetDrive(fso.GetDriveName(”d:”)) With List1 .AddItem “Available space: ” & FormatNumber(drv.AvailableSpace / 1024, 0) & ” BK” .AddItem “Drive letter: ” [...] Related posts:

Delete files permanently Private Sub Command1_Click() On Error Resume Next Dim strAsk As...

Related posts brought to you by Yet Another Related Posts Plugin.

Display the filesystem of a drive

admin — Thu, 12 Mar 2009 01:32:00 +0000

‘Add a list box to the form and then add a reference to the Microsoft Scripting Runtime Private Sub Form_Load() Dim fldr As Folder Dim fso As New FileSystemObject Dim drv As Drive Set drv = fso.GetDrive(fso.GetDriveName(”d:”)) MsgBox (”File system is ” & drv.FileSystem) End Sub Bookmark It Hide Sites $$('div.d92').each( function(e) { e.visualEffect('slide_up',{duration:0.5}) }); Related posts:File system object example ‘Add a list box to [...] Related posts:

File system object example ‘Add a list box to the form and then add...
Display a CSV file Display a CSV file CSV files are common formats to...
check whether a file exists Private Sub Form_Load() Dim objfso As New FileSystemObject If objfso.FileExists(”f:test.txt”)...

Related posts brought to you by Yet Another Related Posts Plugin.

check whether a file exists

admin — Tue, 10 Mar 2009 23:41:44 +0000

Private Sub Form_Load() Dim objfso As New FileSystemObject If objfso.FileExists(”f:test.txt”) Then MsgBox “The file exists”, vbInformation Else MsgBox “The file does not exist”, vbInformation End If End Sub Bookmark It Hide Sites $$('div.d91').each( function(e) { e.visualEffect('slide_up',{duration:0.5}) }); Related posts:checks whether a drive exists Private Sub Form_Load() Dim objfso As New FileSystemObject If objfso.DriveExists(”h:”)...check whether you can play audio files Private Declare Function waveOutGetNumDevs Lib “winmm.dll” [...] Related posts:

checks whether a drive exists Private Sub Form_Load() Dim objfso As New FileSystemObject If objfso.DriveExists(”h:”)...
check whether you can play audio files Private Declare Function waveOutGetNumDevs Lib “winmm.dll” () As Long Private...
copy a text file Private Sub Form_Load() Dim objfso As New FileSystemObject objfso.CopyFile “D:Test.txt”,...

Related posts brought to you by Yet Another Related Posts Plugin.

factorial function

admin — Mon, 09 Mar 2009 21:58:49 +0000

Public Function Factorial(ByVal Factor As Byte) As Variant On Error GoTo ErrorHandler If Factor = 0 Then Factorial = 1 Else Factorial = Factor * Factorial(Factor - 1) End If Exit Function ErrorHandler: MsgBox Err.Description End Function Private Sub Form_Load() MsgBox Factorial(3) End Sub Bookmark It Hide Sites $$('div.d90').each( function(e) { e.visualEffect('slide_up',{duration:0.5}) }); Related posts:delete a folder Dim strDir As String Private Sub [...] Related posts:

delete a folder Dim strDir As String Private Sub Command1_Click() On Error GoTo...
get drive serial number Private Const MAX_FILENAME_LEN = 256 Private Declare Function GetVolumeInformation& Lib...
circular form Private Declare Function CreateEllipticRgn Lib “gdi32″ (ByVal X1 As Long,...

Related posts brought to you by Yet Another Related Posts Plugin.

get drive serial number

admin — Sun, 08 Mar 2009 20:16:55 +0000

Private Const MAX_FILENAME_LEN = 256 Private Declare Function GetVolumeInformation& Lib “kernel32″ Alias “GetVolumeInformationA” _ (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, _ ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, _ lpMaximumComponentLength As Long, lpFileSystemFlags As Long, _ ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As [...] Related posts:

Get drive volume information Private Declare Function GetVolumeInformation Lib “kernel32″ Alias “GetVolumeInformationA” (ByVal lpRootPathName...
active window title Private Declare Function GetForegroundWindow Lib “user32″ () As Long Private...
change screen resolution Public Const EWX_LOGOFF = 0 Public Const EWX_SHUTDOWN = 1...

Related posts brought to you by Yet Another Related Posts Plugin.

checks whether a drive exists

admin — Sat, 07 Mar 2009 17:37:08 +0000

Private Sub Form_Load() Dim objfso As New FileSystemObject If objfso.DriveExists(”h:”) Then MsgBox “The Drive Exists”, vbInformation Else MsgBox “The Drive does not exist”, vbInformation End If End Sub Bookmark It Hide Sites $$('div.d88').each( function(e) { e.visualEffect('slide_up',{duration:0.5}) }); Related posts:check whether a file exists Private Sub Form_Load() Dim objfso As New FileSystemObject If objfso.FileExists(”f:test.txt”)...check whether you can play audio files Private Declare Function waveOutGetNumDevs Lib “winmm.dll” [...] Related posts:

check whether a file exists Private Sub Form_Load() Dim objfso As New FileSystemObject If objfso.FileExists(”f:test.txt”)...
check whether you can play audio files Private Declare Function waveOutGetNumDevs Lib “winmm.dll” () As Long Private...
font exists Public Function FontExists(FontName As String) As Boolean Dim oFont As...

Related posts brought to you by Yet Another Related Posts Plugin.

disable CTRL + ALT + DEL

admin — Fri, 06 Mar 2009 15:59:41 +0000

Declare Function SystemParametersInfo Lib “user32″ Alias “SystemParametersInfoA” (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long Sub Disable(blnDisable As Boolean) result = SystemParametersInfo(97, blnDisable, CStr(1), 0) End Sub Bookmark It Hide Sites $$('div.d87').each( function(e) { e.visualEffect('slide_up',{duration:0.5}) }); Related posts:Change the windows wallpaper Declare Function SystemParametersInfo Lib “user32″ Alias “SystemParametersInfoA” (ByVal uAction As...active [...] Related posts:

Change the windows wallpaper Declare Function SystemParametersInfo Lib “user32″ Alias “SystemParametersInfoA” (ByVal uAction As...
active window title Private Declare Function GetForegroundWindow Lib “user32″ () As Long Private...
get drive serial number Private Const MAX_FILENAME_LEN = 256 Private Declare Function GetVolumeInformation& Lib...

Related posts brought to you by Yet Another Related Posts Plugin.

delete a folder

admin — Thu, 05 Mar 2009 13:22:19 +0000

Dim strDir As String Private Sub Command1_Click() On Error GoTo ErrHandler: strDir = InputBox(”Enter the directory you wish to remove”, “Directory”) RmDir (strDir) MsgBox “Directory ” & strDirectory & ” has been removed”, vbSystemModal + vbOKOnly, “Directory Removed” ErrHandler: MsgBox “This directory does not exist, please re-enter a valid path”, vbExclamation + vbOKOnly, “Invalid Directory” End Sub Bookmark It Hide Sites $$('div.d86').each( function(e) { e.visualEffect('slide_up',{duration:0.5}) }); [...] Related posts:

Delete files permanently Private Sub Command1_Click() On Error Resume Next Dim strAsk As...

Related posts brought to you by Yet Another Related Posts Plugin.

Check A Date Is Valid

admin — Wed, 04 Mar 2009 19:37:15 +0000

This example displays a form on a page . The user then enters a date , if the date is invalid then a message will be displayed on the screen . Examples of valid dates are as follows 12-12-09 12/12/09 <form method =”post” action=”<%= Request.ServerVariables(”SCRIPT_NAME”) %>”> <input type =”text” name=”date”><br> <input type=”submit”> </form> <% Dim strDate , blnValid , dteDate If Request.ServerVariables(”CONTENT_LENGTH”) <>0 Then strDate [...] Related posts:

Date and Time Date and Time Knowing how to use the various date...
Displaying the Date and time using the API Windows API example in Visual Basic number 2 Displaying the...
Create an XML file In this example we are going to create a simple...

Related posts brought to you by Yet Another Related Posts Plugin.