vb程序如何在没有源程序的情况下改变控件属性
这里有一个程序,里面有一个ComboBox控件,要求把它的Style属性由Dropdown list 改为Dropdown Combo我用VBExplorer,VBLocalize等工具试了,把属性改后不能运行,提示"无效文件格式"错误.
我比较了一下,文件偏移1259H的值由02改为00.
请教如何能够调整属性,谢谢!
--------------------编程问答-------------------- 下载链接出了问题,在这里下载:
http://www.fs2you.com/files/cc41dfb3-536c-11dd-8675-0014221b798a/ --------------------编程问答-------------------- 不明白，顶一下 --------------------编程问答-------------------- 同问！ --------------------编程问答-------------------- '以下是一个在listBox中增加及删除项目的示例:
'你可以参考下.
--------------------编程问答-------------------- 谢谢fvflove,不过我想知道的是用什么工具可以修改这个可执行文件.因为我在学习做汉化.
Private Const LB_DELETESTRING = &H182
Private Const LB_ADDSTRING = &H180
Const GW_HWNDFIRST = 0
Const GW_HWNDLAST = 1
Const GW_HWNDNEXT = 2
Const GW_HWNDPREV = 3
Const GW_OWNER = 4
Const GW_CHILD = 5
Const GW_MAX = 5
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
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Dim chWnd As Long
Dim listHwnd As Long
Private Sub Command1_Click()
Dim Str As String
Str = "fvflove"
Call SendMessage(listHwnd, LB_ADDSTRING, 0&, ByVal Str)
End Sub
Private Sub Command2_Click()
Call SendMessage(listHwnd, LB_DELETESTRING, 0&, 1)
End Sub
Private Sub Form_Load()
Dim chGwnd As Long
Dim clsname As String * 256
chWnd = FindWindow(vbNullString, "Form1")
chGwnd = GetWindow(chWnd, GW_CHILD)
GetClassName chGwnd, clsname, 256
If InStr(1, clsname, "ListBox") Then
listHwnd = chWnd
Exit Sub
End If
While chGwnd <> 0
chGwnd = GetWindow(chGwnd, GW_HWNDNEXT)
GetClassName chGwnd, clsname, 256
If InStr(1, clsname, "ListBox") Then
listHwnd = chWnd
Exit Sub
End If
Wend
End Sub
这是其中遇到的问题.
补充：VB , 资源
