从品牌网站建设到网络营销策划,从策略到执行的一站式服务
我写详细一些,记住加分
创新互联建站专注为客户提供全方位的互联网综合服务,包含不限于成都做网站、网站建设、射洪网络推广、微信小程序、射洪网络营销、射洪企业策划、射洪品牌公关、搜索引擎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,即“拉伸”,就可以使背景图片始终填充窗口
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图