软件界面如何优化呢

xiaoyie 2003-11-26 08:25:59

看到别人的软件截面很漂亮那是如何设计的呢是用特殊的软件吗还是用API 函数呢请求教

...全文

161 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

online 2003-11-27

打赏
举报

http://expert.csdn.net/Expert/topic/2498/2498500.xml?temp=.2403376

Dublue 2003-11-26

打赏
举报

多看看别人做的程序，特别是行业软件，多学习经验慢慢自己就会了

captainivy 2003-11-26

打赏
举报

其实用shape和picture就可以做出界面不错的程序来

当然加点api的特效
就更不错了

online 2003-11-26

打赏
举报

半透明的窗口，看看
可以考虑用activeskin
Option Explicit

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
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 Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2

Private Sub Form_Load()
Dim FormStyle As Long

' 取的窗口原先的样式
FormStyle = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
' 使窗体添加上新的样式WS_EX_LAYERED
FormStyle = FormStyle Or WS_EX_LAYERED
' 把新的样式赋给窗体
SetWindowLong Me.hwnd, GWL_EXSTYLE, FormStyle
' 设置窗体为半透明
SetLayeredWindowAttributes Me.hwnd, 0, 152, LWA_ALPHA
End Sub

panhaojie 2003-11-26