vb.net的UI设计

         UI设计我们应该不陌生了,自己做过几个小系统,像学生管理系统、机房收费系统等都是客户端模式,当然还有我们的牛腩新闻发布系统,这是我们第一次接触的比较正规的web系统。现在就vb.net的一些UI设计小技巧给大家做个总结,希望对我们的重构或合作都有所帮助吧。

        合作的时候我是负责U层的,所以设计这里就要尽可能的想到“全心全意为人民服务”。因为用户使用的时候就是跟页面交互嘛,对于系统内部的逻辑设计等都不会去了解,这就又说到了UI设计的重要性了,概念性的大家自己去查,这里只做一些小技巧。

1、提示框

U层的设计少不了提示框,我们可不能在弹出提示框的时候给用户看到层标题,以下是一些小实例及其对应的代码。

代码:

MessageBox.Show("确定要退出程序吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

效果:

vb.net的UI设计_第1张图片

注意事项:

         这里要说的是,我们一般的提示框是只有一个“确定”或“是”按钮,换句话说就是用户没有选择权。但是对于这个退出程序,用户是要选择的,这个提示框应该是出现在“Private Sub Form_FormClosing”中的,通过添加if~else~end if来判断是取消操作还是退出程序关闭窗体。对于我们的vb.netelse中的事件应该是“e.Cancel = True”。

完整代码描述:

IfMessageBox.Show("确定要退出程序吗?", "提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
’事件
Else
e.Cancel= True
End if
代码:
MessageBox.Show("充值成功!","系统提示", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)

效果:

vb.net的UI设计_第2张图片

 

代码:

MessageBox.Show("请输入卡号!","系统提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)

效果:

vb.net的UI设计_第3张图片

 

代码:

MessageBox.Show("该用户不存在,请重新输入!","系统提示", MessageBoxButtons.OK, MessageBoxIcon.Error)

效果:

vb.net的UI设计_第4张图片

 

当然还有很多类型的,大家可以根据自己的喜好设计,这里提供一张icon说明表:

vb.net的UI设计_第5张图片


2enter键响应

        一个文本框输入完成,我们可以用enter键来响应确定按钮,要想做的比较完善,就要每一个文本框都写一个以下这样一段代码,这样做是非常麻烦的,但是我还没有想出更好的方法,如果大家有什么好方法,还希望不吝赐教啊!

''' 
    ''' Enter键响应登陆按钮
    ''' 
    ''' 
    ''' 
    ''' 
    Public Sub txtPassword_KeyUp(ByVal senderAs Object, ByVal e As KeyEventArgs) Handles txtPassword.KeyUp
        'Enter键进入
        If e.KeyCode = Keys.Enter Then
            btnOK.PerformClick()
        End If
    End Sub

3、清空、聚焦

        当然还不要忘了我们的清空聚焦啊,清空可以调用一个公共方法,如下:

''' 
    ''' 清除文本框的数据
    ''' 
    ''' 当前窗体
    '''返回布尔值,如果为真则清除成功
    ''' 
    Public Function ClearAll(ByVal frm As Form)As Boolean
        Dim control As New Control
 
        For Each control In frm.Controls'遍历窗体中所有的控件
            If TypeOf control Is TextBox Then'判断控件类型,如果是文本框清空
                control.Text = ""
            Else
                If TypeOf control Is ComboBoxThen '判断控件类型,如果是下拉列表清空
                    control.Text = ""
                End If
            End If
        Next
        Return True
    End Function
 

聚焦当然就简单了,直接

Text.Focus()


4、控件锁定

         如果我们让一个Text框不可用,直接用属性Enable=False就噢啦,但是如果整个窗体的text框都锁定,那一个个来是不是就麻烦多了?同上设计。


 ''' 
    ''' 遍历窗体中所有控件,如果没有锁定,则进行锁定
    ''' 
    ''' 当前窗体
    '''返回true锁定成功,返回false锁定失败
    ''' 
    Public Function Locked(ByVal frm As Form)As Boolean
        Dim control As New Control
 
        For Each control In frm.Controls'遍历窗体中所有的控件
            If TypeOf control Is TextBox Then'判断控件类型,如果是文本框
                control.Enabled = False         '锁定控件
            ElseIf TypeOf control Is ComboBoxThen '判断控件类型,如果是组合框
                control.Enabled = False              '锁定控件
            End If
        Next
        Return True
    End Function

5、窗体字体统一

         这里用了一个比较笨的方法,就是在一开始建窗体时就修改了它的字体,这样往上加控件就是一致的了,就是每建一个新窗体都要修改一次,挺麻烦的,这里还要请高人指教啊!

 

       其他还有很多,大家有什么需要欢迎给我来信~

 

 


你可能感兴趣的:(【编程语言】)