VB的下划线如何输入

发布网友发布时间：2022-03-27 09:47

共4个回答

懂视网时间：2022-03-27 14:08

VB中用代码方式给文字添加下划线的代码如下：

　　下划线Label1.FontUnderline等于true。

热心网友时间：2022-03-27 11:16

下划线意思是让你把代码补充完整,我补充如下:
Private Sub Form_Click()
thickness = 0.1 / 1000
n = 0
high = 8848
Do while n<= high
n=n+thickness
thickness=thickness * 2
Loop
Print "折"; n; "次，厚度可达到"; thickness; "，高于珠穆朗玛峰"
End Sub

每折一次,thickness 就等于翻了一陪,n是用来存储每折一次后当前纸的厚度,直到n>8848(珠穆朗玛峰的高度)就退出循环

热心网友时间：2022-03-27 12:34

写一个过程,用来要变的TextBox
Private Sub PreTextBox(txt As TextBox)
'去除边框
txt.BorderStyle = 0
'背景跟窗口同色
txt.BackColor = Me.BackColor

'画一条线在Text的下面
Me.AutoRedraw = True
Me.Line (txt.Left, txt.Top + txt.Height)-(txt.Left + txt.Width, txt.Top + txt.Height)
End Sub

Private Sub Form_Load()
'用的时候这样
PreTextBox Text1
End Sub

热心网友时间：2022-03-27 14:09

那下划线是要你自己输入，do while那明显是条件具体条件没看明白，也给不出你应该填什么。

首页

文章

VB的下划线如何输入