VB父窗口与子窗口的问题
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Form_Load()
Form2.Show
End Sub
Private Sub Command1_Click()
SetParent Form2.hwnd, Me.hwnd
End Sub
Private Sub Command2_Click()
Debug.Print GetParent(Form2.hwnd) '总是为零？？
End Sub
我用上面的代码SetParent 把Form1 设置为Form2的窗口后
然后企图用GetParent返回父窗口的句柄，却总是零。不知道这是为什么
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Form_Load()
Form2.Show
End Sub
Private Sub Command1_Click()
SetParent Form2.hwnd, Me.hwnd
End Sub
Private Sub Command2_Click()
Debug.Print GetParent(Form2.hwnd) '总是为零？？
End Sub
我用上面的代码SetParent 把Form1 设置为Form2的父窗口后
然后企图用GetParent返回父窗口的句柄，却总是零。不知道这是为什么
为什么要用GetParent呢？父窗口的句柄不是Form1.hWnd吗？
我这里是做个举例啊，实际情况下我需要在不知道
相关问答：
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
把已有数据（数据大于20行）的RS(recordset)的第10行数据与第11行数据做加法后，删除第11行的数据，然后把后面的数据向前移。
RS的话修改数据是会更新数据库，现在的问题是RS里的已有数据是用SQL语句分类统计出来的 ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
