UC知道VB如何调用 Function 满意追加100分
来源：百度知道 编辑：UC知道 时间：2024/06/14 18:39:35
Public Function HEX_to_OCT(ByVal Hex As String) As String
Dim Bin As String
Hex = UCase(Hex)
Bin = HEX_to_BIN(Hex)
HEX_to_OCT = BIN_to_OCT(Bin)
End Function
如上代码 我写在类模块中 还是模块中？有何区别？
还有这个代码用途：将十六进制转化为八进制 我如何制作个inputbox输入1个16进制数 然后调用这个代码 输出 八进制数 打印在窗体上
最好是有输入错误 弹出提示 限制只能输入数字
一楼你代码有错误。显示不了结果 就算是form1.show之后也打印不出来 tmp你这个变量？根本没用
还有啊 16进制是到F 不是到Z 。。
我是VB6
。net不会 不是说.NET和VB6差很多吗
Public Class Form1 写这个干吗用？？不写不也可以得出正确值吗~
函数一定要写在FORM1类中？什么意思~ 我函数是卸载新建的模块中的
Dim Bin As String
Hex = UCase(Hex)
Bin = HEX_to_BIN(Hex)
HEX_to_OCT = BIN_to_OCT(Bin)
End Function
如上代码 我写在类模块中 还是模块中？有何区别？
还有这个代码用途：将十六进制转化为八进制 我如何制作个inputbox输入1个16进制数 然后调用这个代码 输出 八进制数 打印在窗体上
最好是有输入错误 弹出提示 限制只能输入数字
一楼你代码有错误。显示不了结果 就算是form1.show之后也打印不出来 tmp你这个变量？根本没用
还有啊 16进制是到F 不是到Z 。。
我是VB6
。net不会 不是说.NET和VB6差很多吗
Public Class Form1 写这个干吗用？？不写不也可以得出正确值吗~
函数一定要写在FORM1类中？什么意思~ 我函数是卸载新建的模块中的
Private Sub Command1_Click()
Dim HEXstr As String, OCTstr As String
Dim i As Integer, B As integer
DO
HEXstr = InputBox("请输入一个16进制数据")
B=0
For i = 1 To Len(HEXstr)
Select Case UCase(Mid(HEXstr, i, 1))
Case "0" To "9", "A" To "Z"
Case Else
MsgBox("您输入的不是十六制数,请重新输入!")
B=1 : EXIT For
End Select
Next i
Loop While B=1
OCTstr = HEX_to_OCT(HEXstr)
TextBox1.Text = OCTstr
End Sub
Public Function HEX_to_OCT(ByVal Hex As String) As String
Dim Bin As String
Hex = UCase(Hex)
Bin = HEX_to_BIN(Hex)
HEX_to_OCT = BIN_to_OCT(Bin)
End Function
另外,函数要写在类中!一般函数都有父类,VB.net中一些函数使用时要指定类名
格式为"类名.HEX_to_OCT()",如果父类名没有与其它类名相同,则类名可以省略!
比如楼主的函数中的:HEX_to_BIN函数,省略了前缀的类名!
Private Sub Command1_Click()
istr = InputBox("请输入一个16进制数据")
L = Le