Menyembunyikan, menampilkan, minimize MDI child forms. Declare Function ShowWindow% Lib “User” (ByVal hWnd%, ByVal nCmdShow%) Global Const SW_HIDE = 0 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Global Const SW_SHOWMAXIMIZED = 3 Global Const SW_SHOWNOACTIVE = 4 Global Const SW_SHOW = 5 Global Const SW_MINIMIZE = 6 Global Const SW_SHOWMINNOACTIVE = 7 [...]
Membuat sebuah progress bar dari PictureBox
Membuat sebuah progress bar dari PictureBox Function DrawProgressBar(pbProgress As PictureBox, lPercentComplete As Long, Optional lBackColor As OLE_COLOR = &H8000000F, Optional lForeColor As OLE_COLOR = vbBlue) As Long Dim fPercent As Single Dim lLenBar As Integer On Error GoTo ErrFailed fPercent = lPercentComplete / 100 lLenBar = fPercent * pbProgress.ScaleWidth ‘Fill both sides of the bar [...]
Center Form
Center a form on the screen Public Sub SubFrmCntr(CurrentForm As Form) CurrentForm.Move (Screen.Width – CurrentForm.Width) \ 2, (Screen.Height – CurrentForm.Height) \ 2 Load CurrentForm CurrentForm.Show End Sub Private Sub Form_Load() SubFrmCntr (Me) ‘ Since me is the object name of the current form End Sub
Iklan Sponsor
