[原创]有关于DATAGRID的使用的求助
各位仁兄:本人是个新手,请问:当栅格列长已确定,当栅格内的内容超过设定长度,怎么
才能实现自动换行?
请高手不吝赐教,感激不尽!
很简单的!!
这边以Text文本框给你一个例子,DataGrid是一样子的(把Text换成DataGrid就可以了)。这里假设单行允许最大长度是10个字符(每一行超过10各字符就换行)
注意:要把属性里面的MultiLine设为True哦!!
我这里用了两个文本框,在txtAdd.Text里面输入字符,把它添加到txtTest.里面实现换行的效果。你做的时候用蓝色字体本分的这个算法就可以了!
Private Sub cmdTest_Click()
Dim strTest As String
Dim strBridge As String
strTest = txtAdd.Text
If Len(strTest) > 10 Then
Do While Len(strTest) > 10
strBridge = strBridge & Left(strTest, 10) & vbCrLf
strTest = Mid(strTest, 11)
Loop
End If
txtTest.Text = strBridge & strTest
End Sub
[此贴子已经被作者于2007-1-26 13:02:35编辑过]