请教界面设计

Question

偶发现界面太难看了，请问各位大侠，怎么作成背景是银灰色，四周镶深蓝边的窗体，整体看起来比较有金属质感。需要建立模块么？偶是多窗体程序，具体怎么建？其次是窗体的最大化按钮怎么屏蔽掉。谢谢。请详细解释。

Answer 1

窗体属性 MaxButton和MinButton 设置成false

Answer 2

LZ:
窗体调色可试验以下代码来达目的：
Option Explicit
    Dim colorV
    Dim redV
    Dim greenV
    Dim blueV
Private Sub Form_Load()
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    '设置 Flags 属性
    CommonDialog1.Flags = cdlCCRGBInit
    ' 显示“颜色”对话框
    CommonDialog1.ShowColor
    ' 设置窗体的背景颜色为选定的颜色
    Form1.BackColor = CommonDialog1.Color
    colorV = Form1.BackColor
    redV = (colorV Mod 65536) Mod 256 'Red
    greenV = (colorV Mod 65536) \ 256  'Green
    blueV = colorV \ 65536  'Blue
    Print redV, greenV, blueV
    'Me.BackColor = RGB(172, 172, 172)
    Exit Sub
ErrHandler:
    ' 用户按了“取消”按钮
End Sub你最后确定具体的RGB值，将其赋值给窗体的BackColor属性。蓝色边框似乎WINXP自己可设置。
如想窗体更丰富多彩，可加栽图片。

Answer 3

LZ：你看清楚上述代码中注释的一句及以上3句    redV = (colorV Mod 65536) Mod 256 'Red
    greenV = (colorV Mod 65536) \ 256  'Green
    blueV = colorV \ 65536  'Blue
    Print redV, greenV, blueV
    'Me.BackColor = RGB(172, 172, 172)在窗体的Load事件中设置获得的redV, greenV, blueV值。Private Sub Form_Load()
    Me.BackColor = RGB(172, 172, 172)
End Sub

Answer 4

那你用我在7楼的代码用调色板自定义色调到满意为止，取得实际的redV, greenV, blueV值，比如说150 150 150，写到RGB函数中。

Answer 5

LZ:将窗体的AutoRedraw属性设置为True，那句Print redV, greenV, blueV不是在窗体留下数值吗？

Answer 6

我认为,用PHOTSHOP来做一个理想的图片,然后在贴到窗体上,这样是最好的方法,
但是,楼主不一定会PHOTSHOP,这就困难了.如果要是用代码来完善背景图片的话.也不是简单的事.
需要用API函数的.