VB编程高手进来下。...

来源：百度知道 编辑：UC知道 时间：2024/06/29 21:28:00
1.窗体上有一个TEXT1,MulTiline属性为TRUE,请问怎么用一个变量表示出TEXT1中的某行文字.
2.怎么让LIST1的内容在程序运行中添加后关闭再次运行程序时依然存在?

第1个，用Split函数按行拆分
varLines = Split(Text1.text, vbCrLf)
For Each varLine In varLines
‘你自己的代码
Next
第2个 要先把内容保存到文件或者注册表里面，程序运行时读取就可以了

1.比较麻烦！~
Public Const EM_GETLINE = &HC4
Public Const EM_LINEINDEX = &HBB
Public Const EM_LINELENGTH = &HC1
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)

'读取第21行字符
Private Sub Command1_Click()
Dim S As String, Length As Integer, pos As Long

pos = SendMessage(Text1.hwnd, EM_LINEINDEX, 21, ByVal 0&)
Length = SendMes