vb6如何做弹出窗口？

vb6如何做弹出窗口？

msgbox
.show

获取窗口句柄，然后getwindowrect就ｏｋ了 返回的rect是一个结构体，分别是：bottom,left,top,right

'用api解决你提出的问题 '该例子需要form上和一个textbox(text1)和 '一个commandbutton(command1) '使用时，在text1中输入桌面上任何一个窗体的标题，按command1后， '会在窗口的左上角显示指定窗体的高度、宽度、四个角的坐标 private   declare   function   findwindow   lib   "user32 "   alias   "findwindowa "   (byval   lpclassname   as   string,   byval   lpwindowname   as   string)   as   long private   type   rect         left   as   long         top   as   long         right   as   long         bottom   as   long end   type private   declare   function   getwindowrect   lib   "user32 "   (byval   hwnd   as   long,   lprect   as   rect)   as   long private   sub   command1_click()     me.cls         dim   frmhwnd   as   long     dim   frmrect   as   rect     dim   frmheight   as   long     dim   frmwidth   as   long         frmhwnd   =   findwindow(vbnullstring,   text1.text)     if   frmhwnd   =   0   then         msgbox   "窗体不存在 "     else         getwindowrect   frmhwnd,   frmrect                 frmheight   =   frmrect.bottom   -   frmrect.top         frmwidth   =   frmrect.right   -   frmrect.left                 me.print   "width= "   &   frmwidth         me.print   "height= "   &   frmheight         me.print   "lefttop( "   &   frmrect.left   &   ", "   &   frmrect.top   &   ") "         me.print   "righttop( "   &   frmrect.right   &   ", "   &   frmrect.top   &   ") "         me.print   "rightbottom( "   &   frmrect.right   &   ", "   &   frmrect.bottom   &   ") "         me.print   "leftbottom( "   &   frmrect.left   &   ", "   &   frmrect.bottom   &   ") "     end   if   end   sub

1、用： Form1.show vbModal 2、设置启动对象： 菜单：工程－×××属性（即最下面的那个子项）－将“启动对象”修改为Form2。