Membuat aplikasi seperti Ms.Excel 2003

Berikut ini akan dijelaskan bagaimana kita bisa membuat aplikasi yang mirip seperti Ms. Excel.

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

Akses Port Parellel pada VB 6.0

1. Ketik pada modul
‘Buat module dengan nama mdlPortIO

‘ — Begin —
Option Explicit

Public Declare Function Inp Lib “inpout32.dll” _
Alias “Inp32″ (ByVal PortAddress As Integer) As Integer

Public Declare Sub Out Lib “inpout32.dll” _
Alias “Out32″ (ByVal PortAddress As Integer, ByVal Value As Integer)

‘ — end of module —

Convert a child form

‘Declaration

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

Membuat Modul OnTop dengan VB 6.0

 

‘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

Membuat StartUp program dengan VB 6.0

 

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