VB高手进,很难的问题

来源:百度知道 编辑:UC知道 时间:2024/09/25 11:18:04
1.我电脑上有一个VB写的软件运行后有一个窗体界面,我想在这个窗体的(0,0)-(200,200)范围画上一张图片,该怎么实现,用语言告诉我方法和用到的API函数即可.我自己是想将图片加载到一个无标题栏的窗体上,移动窗体到指定范围,然后置顶,但这样不好,所以我想直接将图片Paint到目标窗体上.
2.还是这个软件,他的界面上有很多控件,能够获得上面所有控件的句柄和名称吗?请用语言告诉我方法.
--------------------------------------------
先谢谢你们的回答,不过抱歉你们可能理解错了我的意思.我所说的那个软件是我买的,我没有它的代码,
我只能使用它,只能看到他运行后的界面.如果我有那个软件的代码,或者那个软件是我自己写的,那就简单了.

我有实例,原理就是知道需要画图片的程序的句柄,然后自己做个窗体,窗体只有一个图片控件,再把你自己做的窗体嵌入到你买的那个程序中,主要代码如下,实例另外联系:

'窗体互套
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
'总在最上
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Sub Form_Load()
Call SetWindowPos(Form2.hwnd, -1, 0, 0, 0, 0, 3)
Call SetParent(Form2.hwnd, Val(Left(Form1.Text1, InStr(1, Form1.Text1, "("))))

End Sub

Private Sub Timer1_Timer()
Call SetWindowPos(Form2.hwnd, -1, 0, 0, 0, 0, 3)
Call SetParent(Form2.hwnd, Val(Left(Form1.Text1, InStr(1, Form1.Text1, "("))))

End Sub

我不是高手,所以给你一个“低手”的方法:
1、在窗体指定的位置放置一个你想要的大小的picture,然后将图片装入其中。
2、能。
使用循环
obj、mefrm都申明为对象