文本框通常用來顯示文本字符,以下是用
成都創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務,包含不限于成都做網(wǎng)站、網(wǎng)站設計、山東網(wǎng)絡推廣、微信小程序定制開發(fā)、山東網(wǎng)絡營銷、山東企業(yè)策劃、山東品牌公關、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等,從售前售中售后,我們都將竭誠為您服務,您的肯定,是我們最大的嘉獎;成都創(chuàng)新互聯(lián)公司為所有大學生創(chuàng)業(yè)者提供山東建站搭建服務,24小時服務熱線:18982081108,官方網(wǎng)址:www.cdcxhl.com
VB
編寫的打開某
txt
文件,并把文件內(nèi)容顯示在文本框的步驟及代碼:
1、添加必要的組件(文本框、按鈕)
2、設置屬性:
3、編寫按鈕的響應代碼:
點擊后改變文字的代碼Private Sub Command1_Click()Text1.Text = "文本框"End
Sub(意思是command1在執(zhí)行click[單擊]任務時運行——Text1.Text = "需要改變的文字")換行把文本框的
MultiLine 的屬性改為 true
1、首先,點擊保存按鈕后應檢查文本框內(nèi)容。
2其次,如果在文本框4中輸入的值以400開頭則保存反之更改為400。
3、最后,再次檢查文本框5如果文本框5中的值為29或31則保存反之則更改即可。
太晚了,想不出什么好方法了。
發(fā)上來看看吧。
首先建立一個TextBox,我這里名字為TextBox2
然后放一個groupbox,在里頭放兩個Checkbox,checkbox1為粗體,checkbox2為斜體。
代碼:
Dim Bold As Boolean
Dim Italic As Boolean
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked Then
Bold = True
If Italic Then
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Bold Or FontStyle.Italic)
Else
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Bold)
End If
Else
Bold = False
If Italic Then
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Italic)
Else
TextBox2.Font = New Font(TextBox2.Font, 0)
End If
End If
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked Then
Italic = True
If Bold Then
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Italic Or FontStyle.Bold)
Else
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Italic)
End If
Else
Italic = False
If Bold Then
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Bold)
Else
TextBox2.Font = New Font(TextBox2.Font, 0)
End If
End If
End Sub
可以等等別人回答,看看有沒有更好的方法。
可能是你改了窗體或是文本框里字體的大小,這個會影響到文本框的大小。
Private Sub RadioButton1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Dim a As FontStyle
a = Me.TextBox1.Font.Size
Dim b As Single = a * 10
Me.TextBox1.Width = Me.TextBox1.Width * 10
Me.TextBox1.Font = New System.Drawing.Font("PMingLiU ", b, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) '放大10倍,若僅10號字體,則將b改為10
End Sub