请朋友进来帮帮我！

Question

用VB怎样才能实现把一个程序（一个游戏）全屏运行的，让它以窗口的模式运行。就好比写一个MU（奇迹）登陆器一样，窗口化。

Answer 1

Const SWP_NOMOVE As Long = &H2
 Const SWP_NOSIZE As Long = &H1
Const FLAG = SWP_NOMOVE Or SWP_NOSIZE
 Const HWND_TOPMOST = -1
 Const HWND_NOTOPMOST = -2
 Const HWND_TOP = 0
 Const HWND_BOTTOM = 1
 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()
 Me.Move 0, 0, Screen.Width, Screen.Height '设定Form的大小占满整个萤幕
 Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAG) '设定成TopMost的Window
 End Sub

Answer 2

我是用VB来控制其他程序啊，如一个游戏的文件名为Main.exe,运行时是全屏显示的，我要用VB控制他，让他以窗口的形式显示出来。怎么实现？？？？？？？？？

Answer 3

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Sub Command1_Click()
Dim wHwnd As Long
wHwnd = FindWindow(vbNullString, "那个游戏程序的标题")
SetParent wHwnd, Me.hwnd
End Sub

Answer 4

回复人： tztz520(午夜逛街) ( ) 信誉：100  2004-11-23 21:21:00  得分: 0  
 
 
   Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Sub Command1_Click()
Dim wHwnd As Long
wHwnd = FindWindow(vbNullString, "那个游戏程序的标题")
SetParent wHwnd, Me.hwnd
End Sub
  
 ===============
老大你说的也不行的