InputBox弹出交互式输入对话框的实例

作者：Ilu    来源：乐博网     更新时间：2009-10-29

InputBox弹出交互式输入对话框的实例

以下实例演示了如何依靠交互式输入对话框来实现计算用户所输入的字符串的长度

这个可以应用在一些人机交互的模块中，更加友好的方式与用户进行交互。

效果图：

 

代码如下：

乐博网lob.cn提示：调试环境为 vs2005 +  windows2003 / windows2008 / xp / vista + .NET Framework 2.0

Public Class InMessBoxForm
    Dim Str_Input As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Str_Input = InputBox("请输入字符串 ： ", "获取字符串", "乐博网", 100, 100)
        Textbox1.Text = Str_Input
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MessageBox.Show(inputstr.Length, "字符串长度", MessageBoxButtons.OKCancel, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
    End Sub
End Class

lob.cn提示：inputbox后面的2个参数 100,100 是xpos和ypox参数，用来定位对话框的初始出现位置，如果都不填写，默认x坐标是水平居中，y坐标是在屏幕从上到下大约1/3高度处，可能是视觉看起来比较舒服的位置吧，或者是按照黄金分割线比例0.618去设计的？ 这个乐博网没去验证,爱玩的朋友可以计算消遣一下 ...