当前位置:首页 » 表格制作 » vb怎样调整窗口高度
扩展阅读

vb怎样调整窗口高度

发布时间: 2022-04-01 11:26:19

A. VB怎么设置窗口大小 比如设置成400×300

譬如:浏览器
设置IE浏览器默认打开窗口大小的方法一:
先把所有的IE窗口关了,只打开一个IE窗口,最大化这个窗口,关了它,以后的默认都是最大化的了。
设置IE浏览器默认打开窗口大小的方法二:
先关闭所有的IE浏览器窗口,用鼠标右键点击快速启动栏的IE浏览器图标,在出现的快捷菜单中点击“属性”,系统随即弹出“启动InternetExplorer浏览器属性”对话页面,点击“快捷方式”标签,在出现的页面的“运行方式(R)”中单击右侧的下拉条,选择“最大化”,再按“确定”退出。
打开IE浏览器窗口,点击里面的链接,接着关闭先前打开的IE浏览器窗口,只留下这个链接页面,拉动边框将其窗口拉到整个屏幕,然后关闭该页面从此,打开IE浏览器窗口,就直接能看到最大化的页面了。

B. Vb6.0怎样调整Form1窗口的大小

如果运行后希望里面的控件随着最大最小化变化的话,可用宽,高,顶端位置来确定,多练几次就明白了
Text1.Width = ScaleWidth - Text1.Left
Text1.Top = Text2.Top
Text1.Height = ScaleHeight - Text1.Top

C. vb中怎么把窗体设置成固定大小

把窗体的BoderStyle属性设置为1 - Fixed Single

D. vb如何设置窗体的最小宽度和高度

vb6.0可通过height、width
属性设置窗体的外部高度和宽度,包括边框和标题栏。

E. vb中调整窗体大小的方法

这是因为窗体的高宽单位被VB设定为“缇”,而picture被设定为“像素”引起的。
这和scalewidth和scaleheight没有关系,这两者是用来取得对象的长宽,得到的结果单位会根据你的窗体和picture框设定的scalemode来确定。
如果你要准确调整form,最好的办法是手动输入你想要的长宽,如在窗体上加两个text设定长宽,一个按钮来提交修改——不过一般人习惯了用象素来单位,所以你需要先把象素换算为缇,然后再输入text中。如果是要满足视觉要求,那么在设计时直接拖曳窗体是不错的方法,因为一般运行时出现的窗体大小就是你设计时的窗体大小。

以下是一个实现精确定义窗体大小的方法,你输入的单位是象素:
1、建立一窗体,加入两个text和一个按钮。
2、设置text1输入窗体高度,text2输入窗体宽度。
3、对按钮加入以下代码:
Private Sub Command1_Click()

Form1.Height = CInt(Text1.Text) * (Form1.Height / Form1.ScaleHeight)
Form1.Width = CInt(Text1.Text) * (Form1.Width / Form1.ScaleWidth)

End Sub
4、运行后只需要在text中输入对应数值,单位为象素,再按按钮,即可改变窗体大小。

F. vb 如何调整窗口实际高度

窗体除了有外框的宽度和高度,还有一个客户区的宽度和高度,就是窗体内除了边框和标题栏外可供程序真正利用的那个工作区域。在VB中,Width和Height属性是外框的宽度和高度,而ScaleWidth和ScaleHeight则是客户区的宽度和高度。
以上供你参考。也就是说,你实际要调整的是客户区的尺寸,而不是外框的尺寸,这样就跟标题栏和边框的尺寸无关了。

G. vb 如何改变窗体大小

以改变QQ窗口大小为例
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Sub Command1_Click()
a = FindWindow(vbNullString, "qq2011")
SetWindowPos a, HWND_TOP, 100, 100, 1000, 1000, SWP_NOMOVE Or SWP_NOSIZE
End Sub
-----------------------------------------------------------------------------------------------------
具体参数可以参考以下说明

Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
说明
这个函数能为窗口指定一个新位置和状态。它也可改变窗口在内部窗口列表中的位置。该函数与DeferWindowPos函数相似,只是它的作用是立即表现出来的(在vb里使用:针对vb窗体,如它们在win32下屏蔽或最小化,则需重设最顶部状态。如有必要,请用一个子类处理模块来重设最顶部状态
返回值
Long,非零表示成功,零表示失败。会设置GetLastError
参数表
参数 类型及说明
hwnd Long,欲定位的窗口
hWndInsertAfter Long,窗口句柄。在窗口列表中,窗口hwnd会置于这个窗口句柄的后面。也可能选用下述值之一:
HWND_BOTTOM 将窗口置于窗口列表底部
HWND_TOP 将窗口置于Z序列的顶部;Z序列代表在分级结构中,窗口针对一个给定级别的窗口显示的顺序
HWND_TOPMOST 将窗口置于列表顶部,并位于任何最顶部窗口的前面
HWND_NOTOPMOST 将窗口置于列表顶部,并位于任何最顶部窗口的后面
x Long,窗口新的x坐标。如hwnd是一个子窗口,则x用父窗口的客户区坐标表示
y Long,窗口新的y坐标。如hwnd是一个子窗口,则y用父窗口的客户区坐标表示
cx Long,指定新的窗口宽度
cy Long,指定新的窗口高度
wFlags Long,包含了旗标的一个整数
SWP_DRAWFRAME 围绕窗口画一个框
SWP_HIDEWINDOW 隐藏窗口
SWP_NOACTIVATE 不激活窗口
SWP_NOMOVE 保持当前位置(x和y设定将被忽略)
SWP_NOREDRAW 窗口不自动重画
SWP_NOSIZE 保持当前大小(cx和cy会被忽略)
SWP_NOZORDER 保持窗口在列表的当前位置(hWndInsertAfter将被忽略)
SWP_SHOWWINDOW 显示窗口
SWP_FRAMECHANGED 强迫一条WM_NCCALCSIZE消息进入窗口,即使窗口的大小没有改变

H. VB怎么让窗口改变大小时控件也按比例改变大小

可以用窗体的Resize事件来实现,改变窗体大小时,控件大小跟窗体成比例,不过如果最小化的时候就会出错,所以还得把最小化的事件给去了,代码如下:
Private Sub Form_Resize()
If Me.WindowState <> 1 Then '如果不是最小化
Command1.Width = Me.Width / 5 '按钮宽度是窗体的1/5
Command1.Height = Me.Height / 5 '按钮高度是窗体的1/5
End If
End Sub
参数可以自己设定,其它的也是如此,细节还得自己弄了,如果想让控件居中可以这样:
Private Sub Form_Resize()
If Me.WindowState <> 1 Then '如果不是最小化
Command1.Width = Me.Width / 5 '按钮宽度是窗体的1/5
Command1.Height = Me.Height / 5 '按钮高度是窗体的1/5
Command1.Left = (Me.Width - Command1.Width) / 2 '按钮左边
Command1.Top = (Me.Height - Command1.Height) / 2 '按钮顶边
End If
End Sub
这样就可以随窗体改变而改变了。

I. vb 用代码如何调节窗口的大小和位置

vb中调节窗口的大小和位置使用move方法。

Move方法的语法如下:
[object.]Move left , top, width, height
object 是被移动的窗体或控件。如果省略了 object,则移动的是当前窗体。left 和 top 参数是 object 对象的 Left 和 Top 属性的新设置值,而 width 和 height 则是它的 Width 和 Height 属性的新设置值。其中,只有 left 是必须的,但是,若要指定其它参数时,就必须一并指定参数列表中出现在指定参数之前的所有参数。
例子1:
功能:移动窗体让窗口位于右上角。

语句:Me.Move Screen.Width-me.width, 0
说明:Screen.Width-me.width是屏幕宽度减去窗体宽度,即窗体距离屏幕左边的距离
例子2:
功能:使窗体窗口与屏幕大小相同,一般用于窗体最大化或全屏程序功能
语句:Me.Move 0, 0, Screen.Width, Screen.Height

J. 如何改变VB窗体标题栏高度

标题栏高度是windows系统默认的,要改整个系统都改了。
可以把标题设成无,然后自己画个图放在form上也可以达到相应的效果。