Font+FontSize+BackColor และ Coloe Font+FontSize+BackColor และ Coloe - ผมได้ทำโปรแกรมพจนานุกรมไทย แต่มีปัญหาว่า เมื่อสร้างโปรแกรมใกล้เสร็จแล้ว ผมได้ทำเป็น Package Setup ด้วย Package & Deployment Wizard ของ Microsoft Visual Basic 6.0 สำเร็จแล้ว - เมื่อใช้งาน ผมลองเปลี่ยน Font+FontSize+BackColor และ Coloe ของคำศัพท์พจนานุกรมไทยในโปแกรม แต่พอปิดโปรแกรมไปแล้ว เปิดโปรแกรมขึ้นมาใช้งานใหม่ ทำไมค่าของ Font+FontSize+BackColor และ Coloe ทีเปลี่ยนไว้ในโปรแกรมก่อนจะปิดโปรแกรม ถึงไม่เปลี่ยนไปตามที่เราตั้งค่าไว้ - ช่วยแนะนำด้วยครับ ผมต้องรีบทำโปรเจคส่งมหาลัย หรือจะช่วยแนะนำเป็นหนังสือ - ซีดีรอม ทีสอนเกี่ยวกับการเปลี่ยน Font+FontSize+BackColor และ Coloe ก็จะเป็นพระคุณอย่างยิ่ง ขอบคุณครับผม.... sakhorn_j@yahoo.com ตัวอย่าง (Source Code) ที่ผมสร้างโปแกรม 1. การเปลี่ยนรูปแบบตัวอักษรใน Text1 (Source Code) Private Sub mnuFont_Click() CommonDialog1.Flags = cdlCFScreenFonts Or cdlCFEffects With CommonDialog1 .FontName = Text1.FontName .FontSize = Text1.FontSize .FontBold = Text1.FontBold .FontItalic = Text1.FontItalic .FontUnderline = Text1.FontUnderline .FontStrikethru = Text1.FontStrikethru .Color = Text1.ForeColor End With CommonDialog1.ShowFont If Err = 0 Then With Text1 .FontName = CommonDialog1.FontName .FontSize = CommonDialog1.FontSize .FontBold = CommonDialog1.FontBold .FontItalic = CommonDialog1.FontItalic .FontStrikethru = CommonDialog1.FontStrikethru .FontUnderline = CommonDialog1.FontUnderline .ForeColor = CommonDialog1.Color End With End If End Sub --------------------------------------------------------------- 2. การเปลี่ยนสีตัวอักษรใน Text1 (Source Code) Private Sub mnuFontColor_Click() CommonDialog1.Color = Text1.ForeColor CommonDialog1.Flags = cdlCCPreventFullOpen Or cdlCCRGBInit CommonDialog1.ShowColor If Err = 0 Then Text1.ForeColor = CommonDialog1.Color End If End Sub -------------------------------------------------------------- 3. การเปลี่ยนสีตัวอักษรใน Text1 (Source Code) Private Sub Form_Load() 'Dim cb As ComboItem 'สีตัวอักษร Text1 'Dim i As Integer For i = 1 To ImageList2.ListImages.Count Set cb = ImageCombo1.ComboItems.Add cb.Key = ImageList2.ListImages(i).Key cb.Image = ImageList2.ListImages(i).Key cb.Text = UCase(ImageList2.ListImages(i).Key) Next ImageCombo1.ComboItems(1).Selected = True End Sub --- >>> (ต่อ) 3.1 การเปลี่ยนสีตัวอักษรใน Text1 (Source Code) Private Sub ImageCombo1_Click() Select Case LCase(ImageCombo1.Text) Case "a" Text1.ForeColor = &HC0C0FF Case "b" Text1.ForeColor = &H8080FF Case "c" Text1.ForeColor = &HFF& Case "d" Text1.ForeColor = &HC0& Case "e" Text1.ForeColor = &H80& Case "f" Text1.ForeColor = &H40& Case "g" Text1.ForeColor = &HC0E0FF Case "h" Text1.ForeColor = &H80C0FF Case "i" Text1.ForeColor = &H80FF& Case "j" Text1.ForeColor = &H40C0& Case "k" Text1.ForeColor = &H4080& End Select End Sub โดยคุณ : sa - [ 31 ส.ค. 2005 , 20:58:21 น. ]

		คำแนะนำ CommonDialog1.ShowFont If Err = 0 Then With Text1 .FontName = CommonDialog1.FontName ตัดบรรทัดนี้ออก .FontSize = CommonDialog1.FontSize .FontBold = CommonDialog1.FontBold .FontItalic = CommonDialog1.FontItalic .FontStrikethru = CommonDialog1.FontStrikethru .FontUnderline = CommonDialog1.FontUnderline .ForeColor = CommonDialog1.Color ตัดบรรทัดนี้ออก End With End If End Sub ตัดออกสองบรรทัดนะครับ ใช้ได้เลย โดยคุณ : Prasit - [ 13 ธ.ค. 2005 , 20:52:20 น.]