请问VB6.0中怎么把控件加载到窗体上但是要不覆盖窗体的背景?

比如label,不要有灰色的背景而是跟窗体背景一样

label是可以设置为背景透明的 label1.backstyle=0
至于其他控件的背景透明效果要用到API追问

嘿嘿,真的行,对啦能再问个问题吗?我想把label一直居中在窗体上,无论怎么调窗体大小都是居中,怎样做呢?

追答

Private Sub Form_Resize()
Label1.Move (Form1.ScaleWidth - Label1.Width) / 2, (Form1.ScaleHeight - Label1.Height) / 2
End Sub

温馨提示:内容为网友见解,仅供参考
第1个回答  2011-06-10
只要窗体大小变化,控件就会自动移到窗体中间
Private Sub Form_Resize()
Label1.Left = (Me.Width - Label1.Width) / 2
Label1.Top = (Me.Height - Label1.Height) / 2
End Sub

请问VB6.0中怎么把控件加载到窗体上但是要不覆盖窗体的背景?
label是可以设置为背景透明的 label1.backstyle=0 至于其他控件的背景透明效果要用到API

vb中怎么添加控件?
1、首先打开VB6.0,选择“标准EXE”。2、然后按下键盘上的“Ctrl+T”来选择部件。3、在其中找到“Microsoft Multimedia Control 6.0”选项。4、点击左侧的小框框来选中。5、点击对话框下部的确定按钮来完成添加。6、此时,工具箱内就会出现小部件。7、点击小部件,然后在窗体中画出小部件。8、画完...

VB如何实现窗体中添加按钮控件
1、打开VB6.0,新建一个工程,在窗体中添加一个命令按钮,caption分别改为“调用函数”,将窗体Form1的caption属性改为“VB6.0自定义函数”。2、双击窗体Form1,进入代码编辑窗口,单击左侧下拉三角形,选择通用。3、在通用段输入代码,并将Form_Load事件删除。4、双击“调用函数”命令按钮,进入代码编辑...

vb6.0中控件在窗体外了怎么办,看不见选不中,怎么样才能让他回到窗体中...
在右边"属性"窗口里,从下拉列表中可以选择这个控件,选中后,将LEFTTT和TOP都改为0,此时该控件就位于窗体的左上角了,那你想把它放到哪里都可以了

新安装的vb6.0,控件太少了,怎么添加控件,并让控件显示在如下图的窗 ...
在 那空白处右键,添加控件即可

VB6.0怎样重新加载窗体?
1)Show 方法,用以显示 MDIForm 或 Form 对象。窗体名.Show2)Load 语句,把窗体或控件加载到内存中。Load.窗体名3)Visual Basic 窗体经历的状态 通常地,Visual Basic 窗体在整个存活期中有四种状态:创建,但不加载。加载,但不显示。显示。内存和资源完全收回。在一定环境下,窗体可有第五种状态...

vb6.0怎么添加标签控件
1)运行VB6.0,新建一个标准EXE工程,将鼠标移到下图左侧工具箱的A按钮处。2)双击该按钮,窗体上就会出现一个Label控件。3)可对它进行属性设置,并移动到窗体需要的位置。接着可继续按前方法添加Label控件。4)Label 控件, Label 控件是图形控件,可以显示用户不能直接改变的文本。

vb6.0中,如何让label、text、frame等控件的背景色跟我form的背景色一致...
Label可以把背景设为透明、Frame可以把BackColor设为和窗体的BackColor一样,这些都好办,但是Text我不建议设为与窗体背景一致(虽然它也可以设BackColor),因为这样一来Text的外观就跟Label一样了,这会给用户造成一种错觉:就是不知道里面是可以输入文字的!这会严重影响用户体验,而且这也是不符合...

我用得事VB6.0请问在窗体加载得时候如何清楚text1.text 的内容啊
方法一 在窗体中添加一个名为text的text控件,在属性窗口中将它的text属性置为空(你也可以修改其它属性),然后在text控件上点击右键,选择复制,再在窗体的空白区域单击右键,选择粘贴,此时会提示你是否创建控件数组,选择是。重复粘贴n次(根据需要),所有的text控件的text属性都是为空的。引用时用...

vb6.0怎么让窗体里的控件随着窗体的变化而改变大小?
Dim OldH As Single '窗口大小发生改变时 Private Sub Form_Resize()On Error Resume Next '最小大小,防止比例失调 If Me.Width < 4800 Then Me.Width = 4800 If Me.Height < 3600 Then Me.Height = 3600 Dim cu As Control For Each cu In Me.Controls '调整大小 cu.Move cu.Left * ...

相似回答
大家正在搜