Tampilkan postingan dengan label VB 6. Tampilkan semua postingan
Tampilkan postingan dengan label VB 6. Tampilkan semua postingan

Sabtu, 13 Oktober 2012

VB 6: Menyembunyikan Taskbar Windows


Artikel yang sebelumnya membahas tentang menonaktifkan menu start. Dan sekarang saya akan menulis tentang menyembunyikan taskbar.
Langsung ada nih ya..

Lihat gambar di bawah ini:

Copas aja coding di bawah ini...

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40

Private Sub Command1_Click()
hwnd1 = FindWindow("Shell_traywnd", "")
Call SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub

Private Sub Command2_Click()
hwnd1 = FindWindow("Shell_traywnd", "")
Call SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub

Salam seneng nih yea, selamat mencoba dan semoga bermanfaat
Jangan lupa komennya makasih.

Jumat, 12 Oktober 2012

VB 6.0: Menonaktifkan Menu Start Windows


Tulisan sebelumnya membahas tentang menyembunyikan menu start klo ga salah ya. he…he… klo ga ya bener…
Pertama buat tampilannya seperti ini :

Lalu copas aja Coding di bawah ini :

Private Const VK_ESCAPE = &H1B
Private Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags _
As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
Timer1.Enabled = False
End Sub

Private Sub Command2_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Call keybd_event(VK_ESCAPE, 0, 0, 0)
Call keybd_event(VK_ESCAPE, 0, KEYEVENTF_KEYUP, 0)
End Sub

Selamat mencoba dan semoga bermanfaat
Jangan lupa komennya makasih.

Kamis, 11 Oktober 2012

VB 6: Menyembunyikan Menu Start Windows

-->
Berikut ini artikel yang saya tulis; bagaimana menyembunyikan menu start Windows...
Lihat gambar di bawah ini:
-->
Copas aja coding di bawah ini

 
-->
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Private Sub Command1_Click()
OurParent& = FindWindow("Shell_TrayWnd", "")
OurHandle& = FindWindowEx(OurParent&, 0, "Button", vbNullString)
ShowWindow OurHandle&, 0
End Sub

Private Sub Command2_Click()
OurParent& = FindWindow("Shell_TrayWnd", "")
OurHandle& = FindWindowEx(OurParent&, 0, "Button", vbNullString)
ShowWindow OurHandle&, 5
End Sub


Semoga bermanfaat...
Jangan lupa komentarnya ya makasih
 

VB 6: MANIPULASI WINDOWS DENGAN WINDOWS API

API singkatan dari Application Programming Interface. Windows API itu bisa dikatakan berkaitan dengan bagaimana kita MEMANIPULASI Windows dengan program kita. Jika kita tengok program-program seperti TuneUp, Utilities, atau Registry Editor adalah program yang berkaitan dengan Windows API.

Function API pada Windows

Tipe Fungsi
Penjelasan
Letak Function API
Wind16 bit
Wind 32 bit
Base Services
Ini berkaitan dengan hal-hal dasar seperti menyangkut file sistem, hardware, proses, Thread, dan penanganan error.
kernel.exe
krnl286.exe  krnl386.exe
kernel32.dll
Advanced Services
Ini berkaitan dengan hal-hal seperti registry Windows, shutdown, me-restart sistem, memulai Services/program, dan mengelola user.
----
advapi32.dll
Interface Device Graphics
Menyediakan fungsionalitas untuk keluaran konten grafis untuk monitor, printer dan perangkat output lain.
gdi.exe
gdi32.dll
User Interface
Ini berkaitan dengan GUI Windows, seperti membuat dan mengelola jendela, mengelola control-control dasar (tombol, scrollbar dan kawan-kawan), menerima input dari mouse dan keyboard, dll.
user.exe
user32.dll
comctl32.dll (XP)
Common Dialog Box Library
Menyediakan aplikasi standar kotak dialog untuk membuka dan menyimpan file, memilih warna dan font, dll.
commdlg.dll
comdlg32.dll
Common Control Library
Memberikan akses aplikasi untuk beberapa kontrol tingkat lanjut yang disediakan Windows. Ini termasuk hal-hal seperti status bar , progress bar , toolbar dan tab.
commctrl.dll
comctl32.dll (XP)
Windows Shell
Berkaitan dengan tampilan GUI Windows, seperti icon-icon, taskbar, start menu, jendela, dll.
shell.dll
shell32.dll
shlwapi.dll

Sumber : http://mainvb.vistapanel.net

Rabu, 10 Oktober 2012

DOS di Visual Basic 6.0


Sistem Operasi Disk (Disk Operating System-DOS) merupakan perangkat lunak (software) yang digunakan untuk mengelola baik hardware maupun software yang terpasang pada sistem komputer. 

Bagaimana caranya bikin DOS di VB.6.0?
silahkan ambil disini

semoga bermanfaat...

mohon komennya ya...