VB
文章平均质量分 70
zzz22333
这个作者很懒,什么都没留下…
展开
-
INI文件的读写
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As Stri原创 2006-10-25 13:42:00 · 495 阅读 · 0 评论 -
VB6.0中设置Text的输入函数。
Public Sub MaxAndNumeric(txt As TextBox, x As Boolean) If IsNumeric(txt) = False Or txt.Text = "" Then 判断输入是否为数值,是否为空 txt.Text = "" Exit Sub End If If x = T原创 2006-10-25 13:48:00 · 1776 阅读 · 0 评论 -
万能函数,配置小数点保留几位的问题
Public Sub ControlInput(txtText As TextBox, IntegerDigits As Integer, DecimalDigits As Integer) Dim txtCurrently As String Dim Str_IntegerDigits Dim Digits As String Dim Bln_Negative As原创 2006-10-25 13:49:00 · 735 阅读 · 0 评论