VisualFreeBASIC基础——文本框的使用
文本框常用于文本的输入、显示和编辑。在VFB工具栏上找到文本框控件，选择，拖动到窗口，如图：
一、控件属性
1、Name（名称）
和窗口一样，Name属性是文本框类的实例化，我们可以用【名称.属性/方法】来使用文本框控件。
2、TextScrollBars（滚动条）
该属性可以设置文本框的滚动条是否显示（必须在MultiLine属性为True的时候），0 - 无滚动条，1 - 垂直滚动条，2 - 水平滚动条，3 - 垂直和水平滚动条。
3、Text（文本）
该属性设置文本框显示的文本。
4、Enabled（可用）、Visible（显示）
使能和显示文本框。
5、MaxLength（最大字数）
该属性设置文本框的最大允许输入字符数。
6、ForeColor（文字色）、BackColor（背景色）
该属性设置文本框的前景色和背景色。
7、TextAlign（对齐）
该属性设置文本框内文本的对齐方式，0 - 左对齐，1 - 居中，2 - 右对齐
8、PasswordChar（密码文字）
该属性在文本框作为密码输入时，设置输入密码显示的字符。
9、Locked（锁住）
该属性设置文本框是否被锁定，锁定后只读（不可手动修改）。
10、MultiLine（多行编辑）
该属性设置文本框是否是多行编辑控件，如果为False，则文本框只能单行输入。如果为True，则可以多行输入和显示。
11、AcceptFiles（拖放）
该属性设置文本框是否接受文件拖放。
二、事件
1、EN_Change事件
Sub Form1_Text2_EN_Change(hWndForm As hWnd, hWndControl As hWnd) '文本已经被修改（修改前用 EN_UPDATE
End Sub只要文本框的文本发生改变就会触发该属性。
2、WM_Char事件
Sub Form1_Text2_WM_Char(hWndForm As hWnd, hWndControl As hWnd, chCharCode As Long, lKeyData As Long) '字符消息（在 WM_KEYDOWN、WM_KEYUP 消息之后）
'chCharCode 字符代码，Unicode 编码
End Sub输入字符后产生的消息，跟VB6的Keypress消息差不多。
3、Custom事件
Function Form1_Text2_Custom(hWndForm As hWnd, hWndControl As hWnd, wMsg As UInteger, wParam As wParam, lParam As lParam) As LResult '自定义消息（全部消息），在其它事件处理后才轮到本事件。
Select Case wMsg
Case
Case
Case
End Select
Function = FALSE ' 若不想系统继续处理此消息，则应返回 TRUE （俗称吃掉消息）。
End Function自定义消息，如果需要用到默认消息以外的消息，则需要使用自定义消息来实现。
三、使用示例
针对文本框属性，做一个示例。包括文本设置、使能，显示、移动、修改字体等。窗体设计如下：其中Text2控件的属性做如下修改：1、TextScrollBars设置为3 - 垂直和水平滚动条，2、Text设置为空，3、MultiLine设置为True，4、AcceptFiles设置为True（代码中有实现文件拖放的例子，可以显示拖放文件的路径）。
代码如下：
Sub Form1_WM_Create(hWndForm As hWnd,UserData As Integer) '完成创建窗口及所有的控件后，此时窗口还未显示。注：自定义消息里 WM_Create 此时还未创建控件和初始赋值。
Text1.Text = "" '通过代码来清除显示
Text2.ForeColor = &HFF0000 '设置前景色
Text2.BackColor = &HA0FFFF '设置背景色 ’颜色必须在Create事件中设置，而不能在Shown事件中设置，否则显示不正常
End Sub
Sub Form1_Command1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd) '单击
Text1.Text = "12345678" '设置文本
Text2.Text = "这是第一行" & Chr(13, 10) & _
"这是第二行" & Chr(13, 10) & _
"这是第三行" & Chr(13, 10) & _
"这是第四行"
End Sub
Sub Form1_Command2_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd) '单击
if Text1.Enabled Then '设置使能
Text1.Enabled = False
Else
Text1.Enabled = True
End If
End Sub
Sub Form1_Command3_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd) '单击
if Text1.Visible Then '设置显示
Text1.Visible = False
Else
Text1.Visible = True
End If
End Sub
Sub Form1_Command4_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd) '单击
Text2.Locked = True '锁定文本
End Sub
Sub Form1_Command5_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd) '单击
Static IsMove As BOOLEAN = False '标志位，是否移动控件，方便恢复控件
if IsMove = false Then '移动控件
IsMove = true
Text2.Move 10,45,200,100
Else
IsMove = false
Text2.Move 14,47,409,167
End If
End Sub
Sub Form1_Command6_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd) '单击
Text1.MaxLength = 22
End Sub
Sub Form1_Command9_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd) '单击
Text2.Font = "微软雅黑,22,0,0,0,0" ' 格式为：字体,字号,加粗,斜体,下划线,删除线 中间用英文豆号分割
End Sub
Sub Form1_Command10_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd) '单击
Text1.PasswordChar = "*"
End Sub
Function Form1_Text2_Custom(hWndForm As hWnd, hWndControl As hWnd, wMsg As UInteger, wParam As wParam, lParam As lParam) As LResult '自定义消息（全部消息），在其它事件处理后才轮到本事件。
Select Case wMsg
Case WM_DROPFILES
dim as HDROP hdrop = cast(HDROP,wParam)
Dim u As Long = DragQueryFile(hDrop, -1, Null, 0) '获取文件个数
If u Then
Dim nFile As wString * (MAX_PATH + 1), re As Long, i As Long
For i = 0 To u -1
re = DragQueryFileW(hDrop, i, @nFile, MAX_PATH) '获取文件名，返回文件名的字符个数
If re Then
PrintA nFile 'nFile 包含路径的文件名，这里是宽字符版，要获取 A字符，使用 Dim nFile As zString 和 DragQueryFileA
End If
Next
End If
Case else
End Select
Function = FALSE ' 若不想系统继续处理此消息，则应返回 TRUE （俗称吃掉消息）。
End Function运行效果：
完整例子：
https://github.com/rainheart311/VisualFreeBASIC/tree/master/TextBox