Hal yang perlu diperhatikan sebelum memulai membuat aplikasi ini adalah dengan meng-instal Microsoft Office 2003. mengapa Microsoft Office 2003?? Selain lebih mudah, pembuatan tutorial ini menggunakan Microsoft Office 2003.

download tutorial disini Download here

Referensi : http://kohimaru.wordpress.com/2009/01/13/membuat-aplikasi-seperti-excel-dengan-vb-60/

Selamat Mencoba

Private Declare Function GetMenuItemInfo Lib “user32″ Alias “GetMenuItemInfoA” (ByVal hMenu As Long, ByVal uItem As Long, ByVal fByPosition As Long, lpmii As MENUITEMINFO) As Long
Private Declare Function GetMenuItemCount Lib “user32″ (ByVal hMenu As Long) As Long
Private Declare Function GetSystemMenu Lib “user32″ (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib “user32″ (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
‘ Menu flags
Private Const MF_BYPOSITION As Long = &H400
Private Const MF_REMOVE As Long = &H1000
Private Const MIIM_ID As Long = &H2
Private Const MIIM_TYPE As Long = &H10
Private Const MFT_STRING As Long = &H0
‘ Menu structure
Private Type MENUITEMINFO
cbSize As Long
fMask As Long
fType As Long
fState As Long
wID As Long
hSubMenu As Long
hbmpChecked As Long
hbmpUnchecked As Long
dwItemData As Long
dwTypeData As String
cch As Long
End Type

‘ Dichiarazioni API per la conversione di un form Child in una window popup
Private Declare Function SetParent Lib “user32″ (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function SetFocus Lib “user32″ (ByVal hwnd As Long) As Long
Private Declare Function SetWindowLong Lib “user32″ Alias “SetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
‘ Flag opzione stile di SetWindowLong
Private Const GWL_STYLE = (-16)
‘ Attributi SetWindowLong per impostare una window popup
Private Const WS_OVERLAPPED = &H0&
Private Const WS_THICKFRAME = &H40000
Private Const WS_SYSMENU = &H80000
Private Const WS_CAPTION = &HC00000 ‘ WS_BORDER Or WS_DLGFRAME
Private Const WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED Or WS_CAPTIO Or WS_SYSMENU Or WS_THICKFRAME)

Form
Private Sub Command1_Click()
Dim i As Integer
Dim hMenu As Long, iTop As Long
Dim mInfo As MENUITEMINFO

‘ Attiva lo stato del form child e disattiva il form parent MDI
SetFocus formHwnd
‘ Elimina il riferimento al form parent MDI
SetParent formHwnd, 0&
‘ Sostituisce il bit WS_OVERLAPPEDWINDOW dagli attributi del form
SetWindowLong formHwnd, GWL_STYLE, WS_OVERLAPPEDWINDOW
‘ Preleva l’handle del menu di sistema del form
hMenu = GetSystemMenu(formHwnd, 0)
‘ Preleva il numero totale di voci presenti nel menu di sistema
iTop = GetMenuItemCount(hMenu)
‘ Iterazione per eliminare Successivo e il separatore
For i = iTop To (iTop – 2) Step -1
With mInfo
.cbSize = Len(mInfo)
.fMask = MIIM_TYPE Or MIIM_ID
.fType = MFT_STRING
.dwTypeData = Space$(256)
.cch = Len(mInfo.dwTypeData)
End With
If GetMenuItemInfo(hMenu, i, True, mInfo) = 1 Then
‘ Rimozione della voce corrente
Call RemoveMenu(hMenu, i, MF_REMOVE Or MF_BYPOSITION)
End If
Next i
Form1.Show
End Sub

Private Sub Command2_Click()
‘ Visualizzazione come child form
Form1.Show
End Sub

Referensi : http://programmervb.wordpress.com/2008/06/06/convert-a-child-form/#comment-228

Selamat mencoba

‘1. buat modul dengan nama mdlOnTop
‘ketik pada modul

‘— begin —

Option Explicit
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Const TOPMOST_FLAGS = SWP_NOMOVE Or SWP_NOSIZE

Private Declare Function SetWindowPos Lib “user32″ (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, y, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Sub MakeOnTop(Handle As Long, status As Boolean)
If status = True Then
SetWindowPos Handle, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
Else
SetWindowPos Handle, HWND_NOTOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
End If
End Sub

‘— end of modul —

‘2. Buat code pada form
‘ketik pada kode form
‘buat 2 buah button

‘— begin —
private sub commandOntop_click()
makeOntop me.hwnd, true
end sub

private sub commandOffTop()
makeontop me.hwnd, false
end sub
‘— end of code —

Semoga bermanfaat

Referensi : http://kohimaru.wordpress.com/2008/06/05/form-ontop-pada-vb/#more-84

Berikut ini adalah cara bagaimana membuat agak program bisa berjalan pada startup windows.

Cara membuat program berjalan pada startup

buat modul pada vb dengan nama mdlStartUp.
++++++++++++++++++++++++++++++++++++++++++

‘ketik pada module
‘— begin —

Public Sub DeleteKey(Folder As String)
On Error Resume Next
Dim b As Object
Set b = CreateObject(”Wscript.Shell”)
b.RegDelete Folder
End Sub

Public Sub CreateStringKey(Folder As String, value As String)
On Error Resume Next
Dim b As Object
Set b = CreateObject(”wscript.shell”)
b.RegWrite Folder, value, “REG_EXPAND_SZ”
End Sub

‘— end of modul‘ketik pada code form
‘— begin —’
Public sub StartUpOn(Status as boolean)
Dim letak As String
dim nama_folder_program as string

letak = App.Path & “\” & App.EXEName & “.exe”
nama_folder_program = app.EXEName

if status = True thens

‘Menulis keRegistri
CreateStringKey “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\” & nama_Folde_program & , “” & letak & “”

else

‘Menulis keRegistri
CreateStringKey “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run” & “\” & nama_folder_program ,””
DeleteKey “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run” & “\” & nama_folder_program

end if

end sub

‘— end of code —

‘pemanggilan
‘Buat 2 commandButton pada form

Private sub commandStartUpOn_Click()
StartUpOn True
end sub

Private sub commandStartUpOff()
startUpOn False
end sub

‘Tambahan, Jika ingin merubah RegisterOwner & RegistrerOrganization gunakan kode dibawah ini
‘tambahkan pada modul dibawah modul startup

‘— begin —
Public Sub CreateKey(Folder As String, value As String)
On Error Resume Next
Dim b As Object
Set b = CreateObject(”wscript.shell”)
b.RegWrite Folder, value
End Sub

‘— end of module

‘ketik pada form
‘contoh: pada saat form dijalankan

Private sub form_load()
dim myOrganization as string
dim myOwner as string

myOrganization = “Organisasiku”
myOwner = “Namaku”

CreateKey “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization”, myOrganization
CreateKey “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner”, myOwner

end sub

‘— end of code —

Referensi : http://kohimaru.wordpress.com/2008/06/05/membuat-startup-program/#more-90