Menampilkan Kotak Dialog ShutDown Menggunakan Fungsi API

Di bawah ini merupakan fungsi API untuk menampilkan kotak dialog shutdown. Fungsi yang digunakan adalah SHShutDownDialog yang terdapat pada Shell32.dll.

Option Explicit 
 
Private Declare Function SHShutDownDialog Lib "shell32" Alias "#60" (ByVal sParam As Long) As Long 

Contoh penggunaan fungsi API di atas:

Private Sub Command1_Click() 
    SHShutDownDialog 0 
End Sub 

READ MORE - Menampilkan Kotak Dialog ShutDown Menggunakan Fungsi API

Menampilkan Kotak Dialog ShutDown Menggunakan Fungsi API

Di bawah ini merupakan fungsi API untuk menampilkan kotak dialog shutdown. Fungsi yang digunakan adalah SHShutDownDialog yang terdapat pada Shell32.dll.

Option Explicit 
 
Private Declare Function SHShutDownDialog Lib "shell32" Alias "#60" (ByVal sParam As Long) As Long 

Contoh penggunaan fungsi API di atas:

Private Sub Command1_Click() 
    SHShutDownDialog 0 
End Sub 

READ MORE - Menampilkan Kotak Dialog ShutDown Menggunakan Fungsi API

Drag Form Yang Tidak Memiliki ControlBox

Di bawah ini merupakan fungsi standar (menggunakan fungsi API) untuk men-drag form yang tidak memiliki Control Box.

Option Explicit 
 
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 
Private Declare Sub ReleaseCapture Lib "User32" () 
 
Const WM_NCLBUTTONDOWN = &HA1 
Const HTCAPTION = 2 
 
Public Sub DragForm(frm As Form) 
    Dim lngReturnValue As Long 
    Call ReleaseCapture 
    lngReturnValue = SendMessage(frm.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&) 
End Sub 

Contoh penggunaan drag form yang tidak memiliki controlbox

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    DragForm Me 
End Sub 

READ MORE - Drag Form Yang Tidak Memiliki ControlBox

Fungsi Untuk Memeriksa Resolusi Screen

Di bawah ini merupakan fungsi untuk mengetahui resolusi screen. Bagaimana implementasinya dalam Visual Basic 6.0? bisa kita simak kodenya di bawah ini:

Option Explicit 
Public Function ScreenResolution(iWidth, iHeight) As String 
    iWidth = Screen.Width � Screen.TwipsPerPixelX 
iHeight = Screen.Height � Screen.TwipsPerPixelY 
ScreenResolution = "Screen Resolution:" + vbCrLf + vbCrLf + Str$(iWidth) + " x" + Str$(iHeight) 
End Function 

Contoh penggunaan fungsi di atas:

Private Sub Command1_Click() 
    Dim intWidth As Integer 
    Dim intHeight As Integer 
    MsgBox ScreenResolution(intWidth, intHeight) 
MsgBox intWidth 
MsgBox intHeight 
End Sub 

READ MORE - Fungsi Untuk Memeriksa Resolusi Screen