怎样把登录见面做漂亮点？

Question

网上看了一些系统的登录界面，感觉很一般
运行软件出现登录界面，有个背景图片，显示xx单位，密码输入框，确定，取消按钮
问下怎么做 能让我眼前一亮 至少要给人感觉很舒适
哪有做的比较好的页面 参考下

Answer 1

可加载图片,改变控件颜色,……就象2楼说的，看你的艺术细胞了。
另外可用API函数改变形状……
也可用皮肤控件……

Answer 2

Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongDim Alpha As Integer '声明变量
Private Sub cmdDL_Click()
If Me.Combo1.Text = "" Then
  MsgBox "请选择登陆用户！", 48, "错误提示"
  Exit Sub
End If
Call OpenConn
SQL = "select * from 系统用户表 where Czy='" & Me.Combo1.Text & "'"
rs.Open SQL, cn, 1, 1
 If zhuan(txtPass.Text) = IIf(Trim(IsNull(rs.Fields("pass"))), "", Trim(rs.Fields("pass"))) Then
       gCzy = rs.Fields("czy")
       gCzyqx = rs.Fields("czyqx")
       Call CloseConn
       MDIfrm.Show       Unload Me
    Else
       MsgBox "密码错误！", 48, "错误提示"
    End If
End SubPrivate Sub cmdTC_Click()
End
End SubPrivate Sub Form_Load()Me.Shape1.Top = Me.Top '外边框
Me.Shape1.Left = Me.Left
Me.Shape1.Width = Me.ScaleWidth
Me.Shape1.Height = Me.ScaleHeight
'---------------------------------------------
Dim Ret As Long
    Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
    Ret = Ret Or WS_EX_LAYERED
    SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
    Timer1.Interval = 20
'--------------------------------------------
Call OpenConn
SQL = "select czy from 系统用户表"
rs.Open SQL, cn, 1, 1
    Do While Not rs.EOF
        Me.Combo1.AddItem rs!czy
        rs.MoveNext
    Loop
Call CloseConnCall OpenConn
SQL = "select 公司名称 from 公司信息"
rs.Open SQL, cn, 1, 1
    If rs.RecordCount > 0 Then
        gGsmc = rs!公司名称
    Else
        gGsmc = "公司信息未知"
    End If
Call CloseConn
End SubPrivate Sub Timer1_Timer()
Alpha = Alpha + 5
If Alpha > 255 Then
   Timer1.Enabled = False
Exit Sub
End If
    SetLayeredWindowAttributes Me.hWnd, 0, Alpha, LWA_ALPHA
End Sub
渐现式窗体，希望你喜欢！

Answer 3

6楼的,要发代码也稍微整理一下啊Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongDim Alpha As Integer '声明变量Private Sub Form_Load()
Dim Ret As Long
    Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
    Ret = Ret Or WS_EX_LAYERED
    SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
    Timer1.Interval = 20End SubPrivate Sub Timer1_Timer()
Alpha = Alpha + 5
If Alpha > 255 Then
  Timer1.Enabled = False
Exit Sub
End If
    SetLayeredWindowAttributes Me.hWnd, 0, Alpha, LWA_ALPHA
End Sub

Answer 4

学习一下 ，user32从哪里下载呀。

Answer 5

晕，这个不用下载的。api函数，都是windows自带的。

Answer 6

怎么说呢，我认为漂亮的动画效果比较好。
如果设计的时候有些透明和半透明的技术混合动画效果，
在配合点音乐或音效会更加好。
用好GDI和GDI+使用PNG，配合UpdateLayeredWindow来做透明+半透明+阴影的动画效果
用MCI或DirectShow搞媒体音乐播放，当然，这一切都是要建立在设计比较好的情况下才能
发挥好效果的。说白了，要看你个方面的功力了。

Answer 7

看你的Photoshop功底如何.还有就是想象力.

Answer 8

简单就是美，控件排整齐，写上公司logo就够了。

Answer 9

自己喜欢什么样的就加什么样的，加flash也行呀