重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
我写详细一些,记住加分
创新互联建站专注为客户提供全方位的互联网综合服务,包含不限于成都做网站、网站建设、射洪网络推广、微信小程序、射洪网络营销、射洪企业策划、射洪品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联建站为所有大学生创业者提供射洪建站搭建服务,24小时服务热线:13518219792,官方网址:www.cdcxhl.com
vb6.0中 让最大化、最小化按钮蒸发:
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal _
nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal _
nIndex As Long) As Long
Const WS_MINIMIZEBOX = H20000
Const WS_MAXIMIZEBOX = H10000
Const GWL_STYLE = (-16)
'使用:
Private Sub Form_Load()
Dim lWnd As Long
lWnd = GetWindowLong(Me.hwnd, GWL_STYLE)
lWnd = lWnd And Not (WS_MINIMIZEBOX)
lWnd = lWnd And Not (WS_MAXIMIZEBOX)
lWnd = SetWindowLong(Me.hwnd, GWL_STYLE, lWnd)
End Sub
步骤(这些设置应当在程序设计阶段进行,即:这些属性无法在程序中简单用代码来设置)
1.BorderStyle设置为1-Fixed Single
2.把MaxButton设置为True
3.根据自己需要设置是否可以移动窗口
1) 若Moveable=True 可以移动窗口
2) 若Moveable=False 不可以移动窗口
属性窗口中把窗体属性FormBorderStyle改为FixedSingle,即“固定边框”,就不允许更改大小了;BackgroundImageLayout改为Stretch,即“拉伸”,就可以使背景图片始终填充窗口