高分相送,征求几个圆满的答案?

Question

1).如何对TextBox控件的输入格式化(A.比如在允许输入的情况下只能输入数字和小数点,并且小数点默认显示在固定位置?  B.如何在TextBox控件中只允许输入日期数据:YYYY.MM.DD格式?)
2).当MSHFlexGrid控件与数据绑定时,MSHFlexGrid中的某些列显示的是小数,当小数的值小于1时,如0.25,在表格中显示为".25",如何让它显示为"0.25"?
3).当点击窗体中的某一菜单时,自动调用浏览器并且自动连接到某一个固定的网址,比如我的某一菜单名为"www.csdn.net",点击此菜单时自动连接到"http://www.csdn.net")?

Answer 1

1.建议使用MaskEdBox控件,或者由ASCII码判断.2.使用Format 函数例如:
' 用户自定义的格式。
MyStr = Format(5459.4, "##,##0。00")   ' 返回 "5,459.40"。
MyStr = Format(334。9, "###0。00")   ' 返回 "334.90"。
MyStr = Format(5, "0。00%")   ' 返回 "500.00%"。
MyStr = Format("HELLO", "<")   ' 返回 "hello"。
MyStr = Format("This is it", ">")   ' 返回 "THIS IS IT"。3.参考:http://www.sijiqing.com/vbgood/article/001192231.html

Answer 2

1.建议用maskedbox这个控件很好用可以自已定义格式输入...
2,楼上说得很明白了..

Answer 3

1.使用 MaskEdBox 实现输入的格式化问题2.就是楼上所说3. 
在模块中声明
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long在菜单项的Click中加入
ShellExecute hwnd, "open", "http://www.csdn.net", "", "", 5

Answer 4

工程－》部件－》选择“microsoft masked edit control 6.0(sp3)”.
它与文本框（TEXT BOX）功能基本相似，但多了一个MASK属性，MASK属性常用的设定如下：
       ＃—限定仅能输入数字0～9；
       A— 限定输入为英文字符及数字；
       ？—限定仅能输入英文字符；
       ．—限定小数点位置；
       ：—限定时间分隔号；
       ／—限定日期分隔号
    不需编写代码，只要在设计时将格式化文本框对象（MASKED EDIT）的MASK属性设计好所需格式即可。比如 #######.##可输入12.3或123456.78但不能输入字母或其他字符但你必须考虑你输入的数字的位数，例如，如果把mask属性设为###.##,那么就只可以输入123.45，而不能输入1234.56，所以，最好把位数设得足够多。这样，你不需要写一行程序，只需要设定masked edit控件的属性就可以达到你的目的了

Answer 5

输入日期用dtpicker工程--->部件--->Microsoft Windows Common Controls 2-6.0打开网址用；Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongShellExecute Me.hWnd, "open", "http://www.csdn.net", vbNullString, vbNullString, SW_SHOW

Answer 6

输入日期用dtpicker工程--->部件--->Microsoft Windows Common Controls 2-6.0打开网址用；Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongShellExecute Me.hWnd, "open", "http://www.csdn.net", vbNullString, vbNullString, SW_SHOW