怎样把登录见面做漂亮点？
网上看了一些系统的登录界面，感觉很一般运行软件出现登录界面，有个背景图片，显示xx单位，密码输入框，确定，取消按钮
问下怎么做 能让我眼前一亮 至少要给人感觉很舒适
哪有做的比较好的页面 参考下 --------------------编程问答-------------------- 仁者见仁 智者见智 看个人的艺术细胞。
一般的很容易设置的。放图片或加载等项就可以了。 --------------------编程问答-------------------- 浅白色,边缘不是立体感的,圆角,半透明,打开时带点音乐,怎么样? --------------------编程问答-------------------- ok 效果怎么样 --------------------编程问答-------------------- 图片啦，Photoshop。 --------------------编程问答--------------------
可加载图片,改变控件颜色,……就象2楼说的，看你的艺术细胞了。
另外可用API函数改变形状……
也可用皮肤控件…… --------------------编程问答--------------------
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1
Private 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 Long
Dim 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 Sub
Private Sub cmdTC_Click()
End
End Sub
Private 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 CloseConn
Call OpenConn
SQL = "select 公司名称 from 公司信息"
rs.Open SQL, cn, 1, 1
If rs.RecordCount > 0 Then
gGsmc = rs!公司名称
Else
gGsmc = "公司信息未知"
End If
Call CloseConn
End Sub
Private 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
渐现式窗体，希望你喜欢！ --------------------编程问答-------------------- 六楼的同志厉害 呵呵 --------------------编程问答-------------------- 6楼的,要发代码也稍微整理一下啊
--------------------编程问答-------------------- 要想做的漂亮
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1
Private 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 Long
Dim 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 = 20
End Sub
Private 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
还得有美工 --------------------编程问答-------------------- 这个似乎不是什么技术问题，取决于个人的审美观 --------------------编程问答-------------------- 学习一下 ，user32从哪里下载呀。 --------------------编程问答--------------------
晕，这个不用下载的。api函数，都是windows自带的。 --------------------编程问答-------------------- 還要有音樂，你老板不K你 --------------------编程问答-------------------- 支持8楼。。
--------------------编程问答-------------------- 怎么说呢，我认为漂亮的动画效果比较好。
如果设计的时候有些透明和半透明的技术混合动画效果，
在配合点音乐或音效会更加好。
用好GDI和GDI+使用PNG，配合UpdateLayeredWindow来做透明+半透明+阴影的动画效果
用MCI或DirectShow搞媒体音乐播放，当然，这一切都是要建立在设计比较好的情况下才能
发挥好效果的。说白了，要看你个方面的功力了。 --------------------编程问答-------------------- 看你的Photoshop功底如何.还有就是想象力. --------------------编程问答-------------------- 简单就是美，控件排整齐，写上公司logo就够了。
--------------------编程问答-------------------- 默认的颜色就不错,显得专业,除非你有很好的美术功底和图片处理手段
至于登陆,可以读数据库,也可以读注册表,看你把用户信息放什么地方了 --------------------编程问答--------------------
自己喜欢什么样的就加什么样的，加flash也行呀 --------------------编程问答-------------------- 录一段宏大的电影场景,作为开头动画~~然后配合场景做个风格相同的界面~~
比如使用独立日外星生物攻过来的场景...然后在场景完结后显示外星飞船登录入口,把你的账号密码框做在那上面去~~~
好看了吧~~~
匿....................................................... --------------------编程问答-------------------- 吃饱了撑的.
用几张图就OK了. --------------------编程问答-------------------- 得，不用写登录界面，直接写剧本吧 --------------------编程问答--------------------
支持
补充：VB , 基础类
