code.txt

来自「漂亮的VB版本的界面,界面可以进行扩展并且所需要的代码又非常的少。是一个优秀的原」· 文本 代码 · 共 33 行

Public Sub Skin(f As Form, cN As cNeoCaption)
   Select Case m_iIndex
   Case 1
      cN.ActiveCaptionColor = &HFFFFFF
      cN.InActiveCaptionColor = &HCCCCCC
      cN.ActiveMenuColor = &HCCCCCC
      cN.ActiveMenuColorOver = &HFFFFFF
      cN.InActiveMenuColor = &H808080
      cN.MenuBackgroundColor = &H0&
      cN.CaptionFont = Me.Font
      cN.MenuFont = Me.Font
      cN.Attach f, picResource(2).Picture, picResource(3).Picture, 13, 14, 90, 142, 240, 372
      f.BackColor = &H0&
      txtDemo.Move 0, 0
   
   Case 2
      cN.ActiveCaptionColor = &HFFFFFF
      cN.InActiveCaptionColor = &HCC3333
      cN.ActiveMenuColor = &H0&
      cN.ActiveMenuColorOver = &HFFFFFF
      cN.InActiveMenuColor = &H0&
      cN.MenuBackgroundColor = RGB(123, 189, 214)
      cN.CaptionFont = Me.Font
      cN.MenuFont = Me.Font
      cN.Attach f, picResource(0).Picture, picResource(1).Picture, 19, 20, 90, 140, 240, 400
      f.BackColor = cN.MenuBackgroundColor
      txtDemo.Move 4 * Screen.TwipsPerPixelX, 4 * Screen.TwipsPerPixelY
      
   End Select
   Form_Resize
   
End Sub