189 8069 5689

vb点虐 不能拖大 vbnet tabpage

vb 如何设计窗体大小不能拖动

Form1.BorderStyle = 1

成都创新互联成立于2013年,先为嘉陵等服务建站,嘉陵等地企业,进行企业商务咨询服务。为嘉陵企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

BorderStyle 属性

vbFixedSingle 1 固定单边框。可以包含控制菜单框,标题栏,“最大化”按钮,和“最嫌则小化”按钮。只有使用最大化和最小化按钮才能改变大小。

2为sizeable

vbFixedDouble 3 固定对话框。可以芹缺棚包含控制菜单扮侍框和标题栏,不能包含最大化和最小化按钮,不能改变尺寸

=======================================

给你个简单的方法

把MaxButton改为False

Private Sub Form_Resize()

Static i As Integer

If i 0 Then MsgBox "不可改变窗体大小"

i = i + 1

End Sub

vb点虐 中lab标签怎么改不了尺寸?拖动不行,修改属性不行。怎么办?

改标签字体的大小撑大标签或标签字的前后加空格,实在不行用Button或TextBox代替标签

VB点虐 怎么实现运行时鼠标拖动改变控件的大小啊

控件是可以显示在里面的,你只要加个label,把label的属性设为visualble=fause就行。设置鼠标经过头像的mouseHover和mouseLeave事件,当mouseHover时label的属性visualble=true,当mouseLeave时label的属性visualble=fause即可。窗体的鼠标事件可以设置控件的cursor属性,里面可以扒塌租选择许多种鼠标图形。 只要是正常的Form都可以改变窗体大小,但是无边框的窗体只能用函数改变或者设置属衫大性,在debug后是不能改变的。春兆拖动窗体需要在窗体的load时间里面写入当鼠标单击不放时的事件即可,不难。

vb点虐 在设计过程中,发现当窗口化的窗体最大化后,里面的组件不能被放大~~

这个问题,如有可能你应当先把大的控件停春汪靠扒旦仔在窗体的某部分,其他的控件用form的resize事件迟数触发控件宽高的数值或控件位置坐标的数值。例:

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize

Dim pLabel1, pTextBox1, pButton1 As New Point

pLabel1.X = CInt(Me.Width / 7)

pLabel1.Y = CInt(Me.Height / 8) + 4

pTextBox1.X = CInt(Me.Width / 5)

pTextBox1.Y = CInt(Me.Height / 8)

pButton1.X = CInt(Me.Width / 3)

pButton1.Y = CInt(Me.Height / 8) - 1

Me.Label1.Location = pLabel1

Me.TextBox1.Location = pTextBox1

Me.Button1.Location = pButton1

End Sub

以上只是改变了控件的位置,如需改变控件的大小,重新定义计算控件的size属性


网站标题:vb点虐 不能拖大 vbnet tabpage
文章URL:http://cdxtjz.cn/article/ddpeepg.html

其他资讯