Private Sub MSFlexGrid1_Click()Dim c As Integer, r As IntegerIf MSFlexGrid1.MouseCol = 0 Or MSFlexGrid1.MouseCol = 1 Then Exit Sub '--加入 MouseCol進行判斷,改善BugWith MSFlexGrid1 c = .Col r = .Row If c > 1 And r > 0 Then '--這個if條件能省掉 Combo1.Left = .Left + .ColPos(c) + 50 Combo1.Top = .Top + .RowPos(r) + 50 Combo1.width = .ColWidth(c) Combo1.text = .text Combo1.Visible = True Combo1.SetFocus End IfEnd WithEnd Sub 看这段代码,我好象也很久没用这2个控件,一般全部用spread了
http://dev.csdn.net/article/24/24771.shtm
判断啊Private Sub Form_Load() Dim a As Double a = 0.23 MsgBox a MsgBox test(a) End SubFunction test(n As Variant) As String If Not IsNumeric(n) Then Exit Function End If If n > 0 And n < 1 Then test = "0" & CStr(n) ElseIf n > -1 And n < 0 Then test = "-0" & CStr(Abs(n)) Else test = CStr(n) End If End Function
nnum = 9932
Me.Text1.Text = Format(nnum, "##0.00")结果:9932.00
expression 必要参数。任何有效的表达式。
format 可选参数。有效的命名表达式或用户自定义格式表达式。
firstdayofweek 可选参数。常数,表示一星期的第一天。
firstweekofyear 可选参数。常数,表示一年的第一周。
设置值firstdayofweek 参数有下面设置:常数 值 说明
vbUseSystem 0 使用 NLS API 设置。
VbSunday 1 星期日(缺省)
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
firstweekofyear 参数有下面设置:常数 值 说明
vbUseSystem 0 使用 NLS API 设置。
vbFirstJan1 1 从包含一月一日的那一周开始(缺省)。
vbFirstFourDays 2 从本年第一周开始,而此周至少有四天在本年中。
VbFirstFullWeek 3 从本年第一周开始,而此周完全在本年中。
说明格式化 作法
数字 使用预先定义的命名数值格式或创建用户自定义数值格式。
日期和时间 使用预先定义的命名日期/时间格式或创建用户自定义日期/时间格式。
日期和时间序数 使用日期和时间格式或数值格式。
字符串 创建自定义的字符串格式。
如果在格式化数字时没有指定 format,Format 会提供与 Str 函数类似的功能,尽管它是国际化的。然而,以 Format 作用在正数上不会保留正负号空间,而以 Str
的话则会。
mshflexgrid根本没必要使用text做帮助,它自身是可以输入的。怎么弄?我的怎么不能输入?牛人Dim nnum As Integer
nnum = 0.123
Me.Text1.Text = Format(nnum, "##0.00")结果: .123
--------------------------------------------------------------------------
Dim intNum As Integer
intNum = 0.123
Text1.Text = Format(intNum , "#####0.00;;""")结果: 0.123Dim intNum As Integer
intNum = 0
Text1.Text = Format(intNum , "#####0.00;;""")结果: 不显示Dim intNum As Integer
intNum = 99
Text1.Text = Format(intNum , "#####0.00;;""")结果: 99.00
楼上的几位说的format()应该是很好的方法吧
msflexgrid才需要的,因为它才不能输入。
看这段代码,我好象也很久没用这2个控件,一般全部用spread了
Dim a As Double
a = 0.23
MsgBox a
MsgBox test(a)
End SubFunction test(n As Variant) As String
If Not IsNumeric(n) Then
Exit Function
End If
If n > 0 And n < 1 Then
test = "0" & CStr(n)
ElseIf n > -1 And n < 0 Then
test = "-0" & CStr(Abs(n))
Else
test = CStr(n)
End If
End Function