急急如律令!谁能帮我解决,除了这20分,外加50分!!

ring 2000-05-11 02:39:00
谁能帮我解决,除了这20分,外加50分
详情请看
http://www.csdn.net/expert/TopicView.asp?id=7919
...全文
124 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
iwin 2000-05-14
  • 打赏
  • 举报
回复
试试这个:
Private Sub Timer1_Timer()

SetWindowPos Me.hwnd, HWND_TOPMOST , 0, 0, 0, 0, SWP_NOMOVE And SWP_NOSIZE

SetWindowPos Me.hwnd, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE And SWP_NOSIZE

End Sub
ring 2000-05-14
  • 打赏
  • 举报
回复
iwin,您慢了一步
我只能给你20分了
那位把源程序email给我的朋友请在
http://www.csdn.net/expert/TopicView.asp?id=7919 里留个言
我好给你分,谢谢
bobar 2000-05-11
  • 打赏
  • 举报
回复
Private Sub Timer1_Timer()
Dim x As Long
Dim y As Long
Dim W As Long
Dim H As Long
W = Me.Width / Screen.TwipsPerPixelX
H = Me.Height / Screen.TwipsPerPixelY
x = (Screen.Width / Screen.TwipsPerPixelX - W) / 2
y = (Screen.Height / Screen.TwipsPerPixelY - H) / 2
SetWindowPos Me.hwnd, HWND_TOP, x, y, W, H, SWP_NOMOVE And SWP_NOSIZE

End Sub
应该可以吧

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧