Startup Form Berada Di Kanan Bawah Screen Ketika Dengan Visual Basic 6.0

Pada tutorial kali ini admin akan share sourcode kecil wacana bagaimana cara menciptakan penempatan form ketika run sempurna dikanan pojok bawah screen pada layar komputer anda dengan menyesuaikan setingan resolusi screen.

Buka Microsoft Visual Basic 6.0 – StandartEXE – Form lalu tambahkan module sebagai daerah untuk mempublikasikan atau declarasikan variabel-variabel atau function-function pendukung pada sourcode ini. Copykan coding variabel dan function dibawah ini kedalam module yang gres kita buat. 

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Declare Function SystemParametersInfo _
Lib “user32” Alias “SystemParametersInfoA” ( _
ByVal uAction As Long, ByVal uParam As Long, _
lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_GETWORKAREA As Long = 48

Setelah jawaban dilanjutkan dengan double klik pada form pilih mekanisme Form_Load dan copykan coding ini pada mekanisme Form_Load diatas
Dim R As RECT
Call SystemParametersInfo(SPI_GETWORKAREA, 0, R, 0)
Me.Top = (R.bottom * Screen.TwipsPerPixelX) – Me.Height
Me.Left = (R.Right * Screen.TwipsPerPixelY) – Me.Width
Simpan dan RUN/F5 dan lihat hasilnya, Form akan muncul sempurna berada disudut kanan bawah pada screen anda dengan menyesuaikan resolusi pada layar pc
Author: 
    author
    No related post!