Visual Basic 6.0 - Beberapa Masalah File Manifest

Penggunaan file manifest untuk meng- Style XP-kan objek-objek Visual Basic 6.0 ternyata memiliki bebearapa masalah, diantaranya:

1. Hilangnya shortcut mnemonic (shortcut underlin/underscore) yang biasa diakses melalui Alt + ...
2. OptionButton dan CheckBox yang disimpan dalam kontainer Frame berubah berwarna hitam mengakibatkan Caption dari dua objek tersebut tidak dapat terbaca.
3. CommandButton yang property style-nya diset pada mode 1-Graphical tidak mau berubah menjadi Style XP.
4. MSCOMCTL.OCX TreeView, ToolBar, dsb tidak mau berubah menjadi Style XP.

Penyelesaian:

• Masalah ke-1: Simpan kode di bawah ini pada module, selanjutnya panggil pada setiap Event Form Load.
  

  Option Explicit 
  
  Private Const WM_CHANGEUISTATE As Long = &H127 
  Private Const UISF_HIDEFOCUS As Integer = &H1 
  Private Const  UISF_HIDEACCEL As Integer = &H2 
  Private Const UIS_CLEAR As Integer = &H2 
   
  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 
  
  Public Sub ShowMnemonic(frm As Form) 
     Dim uiState As Long 
     uiState = MakeLong(UIS_CLEAR, UISF_HIDEFOCUS Or UISF_HIDEACCEL) 
     SendMessage frm.hwnd, WM_CHANGEUISTATE, uiState, ByVal 0 
  End Sub 
  
  Private Function MakeLong(ByVal wLow As Integer, ByVal wHigh As Integer) As Long 
     MakeLong = wHigh * &H10000 + wLow 
  End Function 

• Masalah ke-2: Jangan tempatkan OptionButton dan CheckBox secara langsung di atas Frame, tetapi simpanlah kedua objek tersebut di atas PictureBox, selanjutnya pindahkan PictureBox ini ke dalam Frame.
• Masalah ke-3: Mengenai permasalah ini Anda dapat mengunjugi situs Edanmo (Eduardo A. Morcillo).
• Masalah ke-4: Sudah diselesaikan disini.

READ MORE - Visual Basic 6.0 - Beberapa Masalah File Manifest

VB6 Code - Cara Menggunakan NotifyIcon.OCX

Artikel di bawah ini kami beri judul Cara Menggunakan NotifyIcon.OCX, Apa yang dimaksud dengan NotifyIcon? lihat screenshot di bawah ini
.
Nah, sekarang Anda faham, apa yang dimaksud dengan NotifyIcon itu. NotifyIcon.ocx dibuat oleh Bhagwat Singh. NotifyIcon.OCX merupakan sebuah ocx yang bagus, ia dapat mengurangi kekomplekan pemograman. Setidaknya kita tidak direpotkan dengan membuat sebuah modul untuk keperluan Icon Tray dan modul untuk keperluan Baloon Tips. Apa yang harus Anda lakukan adalah mengisi properties-propertiesnya saja, hanya itu saja. Sekarang, bagaimanakah cara mengisi properties-propertiesnya menggunakan pengkodean. Copy dan pastekan code di bawah ini, sebelumnya Anda tambahkan NotifyIcon.ocx ke dalam project Anda.

Option Explicit

Private Const VERSI_KAMUS As String = "Kamus Bahasa Arab v3.0"

Private Sub Form_Load()
 With NotifyIcon1
     .Tip = VERSI_KAMUS
     .BaloonIcon = BaloonIcon.Information
     .ShowIcon
     .BaloonTitle = VERSI_KAMUS
     .BaloonText = VERSI_KAMUS & " - Memudahkan pencarian kosakata bahasa arab dengan fasilitas Windows Pop-Up"
     .ShowBaloon
 End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
 NotifyIcon1.DeleteIcon
End Sub

Catatan:
Kamus Bahasa Arab v1.0 s/d v3.0 (yang paling terakhir di release) seluruhnya menggunakan ocx ini.

READ MORE - VB6 Code - Cara Menggunakan NotifyIcon.OCX