Jump to content

  • Log in with Facebook Log in with Twitter Log in with Windows Live Log In with Google      Sign In   
  • Create Account
  • facebook
  • googleplus
  • twitter

Photo
- - - - -

Tạo Skin đẹp cho 1 chương trình


  • Please log in to reply
4 replies to this topic

#1 TrungDung

TrungDung

    No Predestinedation

  • Admin
  • 783 posts

Posted 18 April 2007 - 04:18 PM

Bài này TD muốn hướng dẫn các bạn sử dụng Skin cho chương trình đẹp hơn.
Trước tiên vẫn như thường lệ các bạn tạo Form với Standard.EXE :

Sau đó tạo 1 Flame trong Form của mình và trong đó tạo ra 12 Command tương ứng với 12 Skin mà các bạn sẽ add vào chương trình như hình minh họa dưới :
Posted Image

Tiếp theo các bạn add file Skin vào chương trình : nhấn Ctrl + T chọn Browse và tình đến Files ActSkin mà tôi có gửi kèm sau khi các bạn Load ra máy :
Posted Image
Sau đó các bạn tạo 1 Skin vào Form như hình dưới và sắp xếp các Command sao cho vừa ý như tôi làm ở dưới.

Posted Image
Như vậy việc tạo Form cho chương trình đã xong giờ sẽ là việc code cho chương trình.

Files kèm theo gồm Form hoàn chỉnh và các File Skin.

Attached Files



#2 TrungDung

TrungDung

    No Predestinedation

  • Admin
  • 783 posts

Posted 18 April 2007 - 04:29 PM

Private Sub cmd1_Click()
Skin.LoadSkin App.Path & "/Skins/chizh.skn"
Skin.ApplySkin Me.hWnd
SkinlblStatus.Caption = "Chizh Skin Loaded"
End Sub

Private Sub cmd2_Click()
Skin.LoadSkin App.Path & "/Skins/B-Studio.skn"
Skin.ApplySkin Me.hWnd
SkinlblStatus.Caption = "B-Studio Skin Loaded"
End Sub

Private Sub cmd3_Click()
Skin.LoadSkin App.Path & "/Skins/galaxy.skn"
Skin.ApplySkin Me.hWnd
SkinlblStatus.Caption = "Galaxy Skin Loaded"
End Sub

Private Sub cmd4_Click()
Skin.LoadSkin App.Path & "/Skins/green.skn"
Skin.ApplySkin Me.hWnd
SkinlblStatus.Caption = "Green Skin Loaded"
End Sub

Private Sub cmd5_Click()
Skin.LoadSkin App.Path & "/Skins/Mac.skn"
Skin.ApplySkin Me.hWnd
SkinlblStatus.Caption = "Mac Skin Loaded"
End Sub

Private Sub cmd6_Click()
Skin.LoadSkin App.Path & "/Skins/Media.skn"
Skin.ApplySkin Me.hWnd
SkinlblStatus.Caption = "Media Skin Loaded"
End Sub

Private Sub cmd7_Click()
Skin.LoadSkin App.Path & "/Skins/metallic.skn"
Skin.ApplySkin Me.hWnd
SkinlblStatus.Caption = "Metallic Skin Loaded"
End Sub

Private Sub cmd8_Click()
Skin.LoadSkin App.Path & "/Skins/TopSecret.skn"
Skin.ApplySkin Me.hWnd
SkinlblStatus.Caption = "TopSecret Skin Loaded"
End Sub

Private Sub cmd9_Click()
Skin.LoadSkin App.Path & "/Skins/Web-II.skn"
Skin.ApplySkin Me.hWnd
SkinlblStatus.Caption = "Web-II Skin Loaded"
End Sub

Private Sub cmd10_Click()
Skin.LoadSkin App.Path & "/Skins/winaqua.skn"
Skin.ApplySkin Me.hWnd
SkinlblStatus.Caption = "Winaqua Skin Loaded"
End Sub

Private Sub cmd11_Click()
Skin.LoadSkin App.Path & "/Skins/Zhelezo.skn"
Skin.ApplySkin Me.hWnd
SkinlblStatus.Caption = "Zhelezo Skin Loaded"
End Sub

Private Sub cmd12_Click()
Skin.LoadSkin App.Path & "/Skins/BlueGel.skn"
Skin.ApplySkin Me.hWnd
SkinlblStatus.Caption = "BlueGel Skin Loaded"
End Sub

Attached Files



#3 ToanNguyen

ToanNguyen

    Chém Gió

  • History
  • 771 posts

Posted 18 April 2007 - 10:34 PM

Cái này là skin cho VB6 phải không bác?
Bác có cái skin nào cho C# 2005 không bác?

#4 Hoàng Long

Hoàng Long

    Junior Member

  • Member
  • Pip
  • 22 posts

Posted 10 August 2007 - 04:10 PM

Bạn có skin vista không vậy. Nếu có cho mình nhé

#5 nghia_code

nghia_code

    Junior Member

  • Member
  • Pip
  • 1 posts

Posted 13 December 2008 - 09:38 AM

Cảm ơn nhiều nhé đang rất cần cái này





Similar Topics Collapse

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users