VB General

kiranreddys.com
free software for you

Visual Basic Source Codes (go to Knowledgebase for full list)

VB General - 1 List of Categories VB General Source Codes

Getting Screen Resolution
Capture BackGround Screen in to PictureBox
Running DOS Batch File with Shell using vbscript through VBS script

Getting Screen Resolution

'Code By Kiran Reddy
'Getting Screen Resolution
'You can get screen resolution in two ways
'One is using GetSystemMetrics another is using TwipsPerPixel
'Declaration
Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1

Private Sub Form_Load()
'getting screen resolution with GetSystemMetrics
MsgBox "Current Screen Resolution is " & GetSystemMetrics(SM_CXSCREEN) & " x " & GetSystemMetrics(SM_CYSCREEN)

' Or you can use below
'best way is using Screen.TwipsPerPixel
MsgBox "Current Screen Resolution is " & Screen.Width / Screen.TwipsPerPixelX & " x " & Screen.Height / Screen.TwipsPerPixelY
End Sub

Top
Capture BackGround Screen in to PictureBox

'Code By Kiran Reddy
'Capture BackGround Screen in to PictureBox
'Keep below Controls on form
'Commad Button --Command1
'Timer --Timer1 set inerwel to 60 and Enabled = False

'Command Button Click event
Private Sub Command1_Click()
Form1.WindowState = 1
Timer1.Enabled = True
End Sub

'Timer1.Timer event
Set Picture1.Picture = CaptureScreen()
Timer1.Enabled = False
Form1.WindowState = 0
Form1.SetFocus

Top
Running DOS Batch File with Shell using vbscript through VBS script

'Code by Kiran
'Running DOS Batch File with Shell using vbscript through VBS script
'You can run Batch file from Visual Basic Exe or with siple text file called VBS file
'Type below code in note pad and save it with .VBS extension,
'Once you double click this it aoutomatically exicutes the DO Batch file

Set oShell = CreateObject("WSCript.shell")

sCmd = "C:\yourbatchfile.bat"

' If you have spaces in the path, you can do like this instead:
'sCmd = Chr(34) & "j:\yourbatchfile.bat" & Chr(34) 'commented

' The 0 will make it run hidden
oShell.Run sCmd, 0, False

' The 7 will make it run minimized
'oShell.Run sCmd, 7, False 'commented

Top

Was this page helpful?