我用一个数据控件绑定它后,因为字段名是英文的,所以显示的也是英文,我想自己改为中文
解决方案 »
- 运行时错误:713 类未注册 查找对象,其CLSID为{00000010-0000-0010-8000-00AA006D2EA4}
- 从网络接收音频数据后,要从声卡中放出来,怎么实现?
- 谁帮我写个类,很简单,只要输入字符串,然后在返回该字符串
- 一个VC字符问题
- 请问怎么求出9/5等于1呀,谢谢
- 关于工具栏控件的
- Assess问题!
- 提问: 所谓的注册表垃圾清除是如何做的?
- 我的VB不能使用,请你们给看看是什么原因!急急急!
- 怎么兑换可用分压!
- PictureBox中的图片:想让另一个PictureBox或Image只取它的某块矩形区域内的图象,用什么办法呀?
- 全套大型ERP软件源码出售,完整的设计开发文档,数据库设计文档,安装程序,帮助文件
'FormatString的格式为:Col1文本+Col1宽度_Col2文本+Col2宽度_……Coln文本+Coln宽度
'如果为空列 把Col文本设为 "*"
Public Sub MsfFormat(tMsf As MSHFlexGrid, FormatString As String, Optional MinCol As Long = 2)
Dim Col As Long, P As Long, Width As Long
Dim tStr As String, pStr As String, Text As String
If FormatString = "" Then
Exit Sub
End If
Col = 0
pStr = FormatString
With tMsf
.Cols = MinCol
Do While pStr <> ""
P = InStr(1, pStr, "_")
If P = 0 Then
tStr = pStr
pStr = ""
Else
tStr = Mid(pStr, 1, P - 1)
pStr = Mid(pStr, P + 1)
End If
P = InStr(1, tStr, "+")
Text = Mid(tStr, 1, P - 1)
Width = Val(Mid(tStr, P + 1))
If Text = "*" Then
Text = ""
End If
'If Width = 0 Then
' Exit Do
'End If
If Col + 1 > MinCol Then
.Cols = .Cols + 1
End If
.TextMatrix(0, Col) = Text
.ColWidth(Col) = Width
.ColAlignment(Col) = 4
.ColAlignmentFixed(Col) = 4
Col = Col + 1
Loop
End With
End Sub