杭州交通信息网索尼哪款手机有hdmi:大哥大姐进来一下好吗？
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 08:50:55
如何将窗体的“关闭”按钮隐藏？（在不隐藏标题栏的情况下）
如何用一个按钮将程序重起？
怎么让TEXT只能输入数字或字母？
怎么让一个变量只提取文字或字母？
如何将TEXT限制为只能输入0-59？
如何让一个按钮在指定的几个地方随机移动？
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal x2 As Long, ByVal y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Sub Form_Load()
Dim rwnd, x2, y2
x2 = ScaleX(Me.Width, vbTwips, vbPixels)
y2 = ScaleY(Me.Height, vbTwips, vbPixels)
SetWindowRgn Me.hWnd, CreateEllipticRgn(9, 20, x2, y2), True
End Sub
这段代码哪里是代表圆形窗体？
我的程序有两个窗体，但是我关了一个窗口（非主窗体，主窗体已经Hide了），主窗口一直隐藏着，却关不了，我该怎么做呢？
我想要一个中国象棋软件，只要能走，能辨别胜利，能辨别什么棋子走什么路就行了，我要源文件，谁能用RAR打包给我呢？
如何用一个按钮将程序重起？
怎么让TEXT只能输入数字或字母？
怎么让一个变量只提取文字或字母？
如何将TEXT限制为只能输入0-59？
如何让一个按钮在指定的几个地方随机移动？
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal x2 As Long, ByVal y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Sub Form_Load()
Dim rwnd, x2, y2
x2 = ScaleX(Me.Width, vbTwips, vbPixels)
y2 = ScaleY(Me.Height, vbTwips, vbPixels)
SetWindowRgn Me.hWnd, CreateEllipticRgn(9, 20, x2, y2), True
End Sub
这段代码哪里是代表圆形窗体？
我的程序有两个窗体，但是我关了一个窗口（非主窗体，主窗体已经Hide了），主窗口一直隐藏着，却关不了，我该怎么做呢？
我想要一个中国象棋软件，只要能走，能辨别胜利，能辨别什么棋子走什么路就行了，我要源文件，谁能用RAR打包给我呢？
1将FORM的CONTROL设为FALSE！
2用SHELL命令重新连结！
3设定KEYPRESS，如果不是，KEYCODE=0就可以了！
4不能实现
5设定好那几个地方，然后有RND函数解决
6CreateEllipticRgn(9, 20, x2, y2)代表创建圆形窗体
7 UNLOAD主窗体
8你要的东西我没有！不好意思了
但是我可以帮助你！