VB6 - آموزش ویژوال بیسیک

کافیه مسیر مورد نظرتون از رجیستری رو به تابع زیر بفرستید تا برنامه Regedit در اون مسیر باز بشه.

طرز کار این تابع اینجوریه که مسیر ورودی رو به عنوان آخرین مسیر بازدید شده توسط Regedit ، در رجیستری

ذخیره میکنه و سپس برنامه رو صدا میزنه.

Sub RegJump(regKeyStr As String)
 Dim RegObj
 Set RegObj = Create("W.Shell")
 Call RegObj.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\
 CurrentVersion\Applets\Regedit\LastKey", regKeyStr, "REG_SZ")
 RegObj.Run ("regedit")
 Set RegObj = Nothing
End Sub
 
خط پنج ادامه خط چهار هست بعد از کپی درستش کنید
 (من برای اینکه کامل نشون داده بشه اینجوری نوشتم)

کلمات کلیدی : VB6، Source Code، regjump، open regedit in my path

نوشته شده توسط مهدی در سه شنبه 90/5/18 و ساعت 4:16 عصر | نظرات دیگران()

تغییر استایل کامند به فلات

برای تغییر استایل کامند باتون به فلات کد زیر رو داخل یه ماژول ذخیره کنید. و هندل کامند مورد نظرتون رو برای تابع ارسال کنید.

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
 (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Const BS_FLAT = &H8000&
Private Const GWL_STYLE = (-16)

Public Function SetButtonFlat(ByVal hWnd As Long) As Boolean
Dim style As Long
style = GetWindowLong(hWnd, GWL_STYLE)
style = style Or BS_FLAT
SetButtonFlat = SetWindowLong(hWnd, GWL_STYLE, style)
End Function

کلمات کلیدی : VB6، Source Code، Set flat style to Command Button، free code

نوشته شده توسط مهدی در سه شنبه 90/5/18 و ساعت 3:26 عصر | نظرات دیگران()

تغییرات در رجیستری توسط

قبلا یه ماژول برای کار با رجیستری گذاشته بودم. اینم همون کار رو میکنه ولی از طریق اسکریپت و دستوراتش هم ساده تره.

متن زیر رو داخل یه ماژول کپی کنید و ازش استفاده کنید و یا اینکه ماژول آماده رو دانلود کنید.

Public Enum RootKeyNames
    HKEY_CURRENT_USER
    HKEY_LOCAL_MACHINE
    HKEY_CLASSES_ROOT
    HKEY_USERS
    HKEY_CURRENT_CONFIG
End Enum

Public Enum RegType
    REG_SZ
    REG_EXPAND_SZ
    REG_DWORD
    REG_BINARY
End Enum

Private Function GetRootKey(Rootkey As RootKeyNames) As String
    Select Case Rootkey
                Case HKEY_CLASSES_ROOT
                    GetRootKey = "HKCR"
                Case HKEY_CURRENT_CONFIG
                    GetRootKey = "HKEY_CURRENT_CONFIG"
                Case HKEY_CURRENT_USER
                    GetRootKey = "HKCU"
                Case HKEY_LOCAL_MACHINE
                    GetRootKey = "HKLM"
                Case HKEY_USERS
                    GetRootKey = "HKEY_USERS"
    End Select
End Function

Private Function TypeOfKey(MyType As RegType) As String
    Select Case MyType
            Case REG_BINARY
                TypeOfKey = "REG_BINARY"
            Case REG_DWORD
                TypeOfKey = "REG_DWORD"
            Case REG_EXPAND_SZ
                TypeOfKey = "REG_EXPAND_SZ"
            Case REG_SZ
                TypeOfKey = "REG_SZ"
    End Select
End Function

Public Function RegWrite(Root As RootKeyNames, KeyName As String, _
                     Value As Variant, WriteType As RegType) As Boolean
On Error GoTo Trap
    Dim RegObj
    Set RegObj = Create("W.Shell")
    RegObj.RegWrite GetRootKey(Root) & "\" & KeyName, Value, TypeOfKey(WriteType)
    Set RegObj = Nothing
    RegWrite = True
    Exit Function
Trap:
    Set RegObj = Nothing
    RegWrite = False
End Function

Public Function RegRead(Root As RootKeyNames, KeyName As String) As Variant
" if you want to read a default value of a key _
   then you should include a final back slash after the key name
On Error Resume Next
    Dim RegObj
    Set RegObj = Create("W.Shell")
    RegRead = CVar(RegObj.RegRead(GetRootKey(Root) & "\" & KeyName))
    Set RegObj = Nothing
End Function

Public Function RegDelete(Root As RootKeyNames, KeyName As String) As Boolean
On Error GoTo Trap
    Dim RegObj
    Set RegObj = Create("W.Shell")
    RegObj.RegDelete (GetRootKey(Root) & "\" & KeyName)
    Set RegObj = Nothing
    RegDelete = True
    Exit Function
Trap:
    RegDelete = False
End Function دانلود ماژول