• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Thay đổi màu textbox khi đã khóa phím shift

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Thay đổi màu textbox khi đã khóa phím shift
• Thay đổi màu textbox khi đã khóa phím shift

• Thay đổi màu textbox khi đã khóa phím shift

  thanhtruong > 29-10-15, 11:57 AM

  Như tiêu đề, muốn thay đổi màu của nội dung nhập trong texbox mà không làm thay đổi thiết kế thì phải làm thế nào, mong mọi người cho ý kiến.

• RE: Thay đổi màu textbox khi đã khóa phím shift

  tranthanhan1962 > 29-10-15, 06:58 PM

  Màu nền: BackColor
  Màu chữ: ForeColor
  
  Màu trong thiết kế là màu mặc định. Màu trong code (được xử lý tùy theo một event nào đó) có cú pháp như sau:
   TextABC.ForeColor = 0(chữ đen)
   Text000.BackColor=255 (nền đỏ)

• RE: Thay đổi màu textbox khi đã khóa phím shift

  thanhtruong > 30-10-15, 11:48 AM

  ý là muốn thay đổi màu chữ bất kì, thích thì chọn mà này không thì chọn màu khác, giống như from nhập trả lời của thuthuataccess.com vậy. phải làm sao

• RE: Thay đổi màu textbox khi đã khóa phím shift

  tranthanhan1962 > 30-10-15, 01:13 PM

  (30-10-15, 11:48 AM)thanhtruong Đã viết: ý là muốn thay đổi màu chữ bất kì, thích thì chọn mà này không thì chọn màu khác, giống như from nhập trả lời của thuthuataccess.com vậy. phải làm sao

  
  Vậy thì viết code:
  Tạo modul global
  
  

  Mã:

  Option Compare Database
Option Explicit

Private Type COLORSTRUC
  lStructSize As Long
  hwnd As Long
  hInstance As Long
  rgbResult As Long
  lpCustColors As String
  Flags As Long
  lCustData As Long
  lpfnHook As Long
  lpTemplateName As String
End Type


Private Const CC_RGBINIT = &H1
Private Const CC_FULLOPEN = &H2
Private Const CC_PREVENTFULLOPEN = &H4
Private Const CC_SHOWHELP = &H8
Private Const CC_ENABLEHOOK = &H10
Private Const CC_ENABLETEMPLATE = &H20
Private Const CC_ENABLETEMPLATEHANDLE = &H40
Private Const CC_SOLIDCOLOR = &H80
Private Const CC_ANYCOLOR = &H100


Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" _
  (pChoosecolor As COLORSTRUC) As Long

Public Function aDialogColor(prop As Property) As Boolean
  Dim x As Long, CS As COLORSTRUC, CustColor(16) As Long

  
  CS.lStructSize = Len(CS)
  CS.hwnd = hWndAccessApp
  CS.rgbResult = Nz(prop.Value, 0)
  CS.Flags = CC_SOLIDCOLOR Or CC_RGBINIT
  CS.lpCustColors = String$(16 * 4, 0)
  x = ChooseColor(CS)
  If x = 0 Then
     prop = RGB(255, 255, 255) ' White
    aDialogColor = False
    Exit Function
  Else
     prop = CS.rgbResult
  End If
  aDialogColor = True
End Function

  
  Giả sử trên form có textbox có tên là textbox000. Tạo 2 command CmdDoiMauNen (đổi BackColor textbox) và CmdDoiMauKyTu (đổi ForeColor textbox)
  
  

  Mã:

  Option Compare Database
Option Explicit
 
Private Sub CmdDoiMauNen_Click()
Dim lngRet As Boolean
    lngRet = aDialogColor(Me.textbox000.Properties("BackColor"))
End Sub
 
Private Sub CmdDoiMauKyTu_Click()
Dim lngRet As Boolean
    lngRet = aDialogColor(Me.textbox000.Properties("ForeColor"))
    If lngRet = False Then Me.textbox000.Properties("ForeColor") = 0
End Sub

  
  Nếu muốn lưu lại giá trị đã thay đổi thì lưu giá trị BackColor và ForeColor đã chọn cho textbox lên table. Khi Load Form thì set các giá trị đó cho textbox.

• RE: Thay đổi màu textbox khi đã khóa phím shift

  thanhtruong > 15-06-17, 11:47 AM

  (30-10-15, 01:13 PM)tranthanhan1962 Đã viết:

  (30-10-15, 11:48 AM)thanhtruong Đã viết: ý là muốn thay đổi màu chữ bất kì, thích thì chọn mà này không thì chọn màu khác, giống như from nhập trả lời của thuthuataccess.com vậy. phải làm sao

  
  Vậy thì viết code:
  Tạo modul global
  
  

  Mã:

  Option Compare Database
Option Explicit

Private Type COLORSTRUC
  lStructSize As Long
  hwnd As Long
  hInstance As Long
  rgbResult As Long
  lpCustColors As String
  Flags As Long
  lCustData As Long
  lpfnHook As Long
  lpTemplateName As String
End Type


Private Const CC_RGBINIT = &H1
Private Const CC_FULLOPEN = &H2
Private Const CC_PREVENTFULLOPEN = &H4
Private Const CC_SHOWHELP = &H8
Private Const CC_ENABLEHOOK = &H10
Private Const CC_ENABLETEMPLATE = &H20
Private Const CC_ENABLETEMPLATEHANDLE = &H40
Private Const CC_SOLIDCOLOR = &H80
Private Const CC_ANYCOLOR = &H100


Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" _
  (pChoosecolor As COLORSTRUC) As Long

Public Function aDialogColor(prop As Property) As Boolean
  Dim x As Long, CS As COLORSTRUC, CustColor(16) As Long

  
  CS.lStructSize = Len(CS)
  CS.hwnd = hWndAccessApp
  CS.rgbResult = Nz(prop.Value, 0)
  CS.Flags = CC_SOLIDCOLOR Or CC_RGBINIT
  CS.lpCustColors = String$(16 * 4, 0)
  x = ChooseColor(CS)
  If x = 0 Then
     prop = RGB(255, 255, 255) ' White
    aDialogColor = False
    Exit Function
  Else
     prop = CS.rgbResult
  End If
  aDialogColor = True
End Function

  
  Giả sử trên form có textbox có tên là textbox000. Tạo 2 command CmdDoiMauNen (đổi BackColor textbox) và CmdDoiMauKyTu (đổi ForeColor textbox)
  
  

  Mã:

  Option Compare Database
Option Explicit
 
Private Sub CmdDoiMauNen_Click()
Dim lngRet As Boolean
    lngRet = aDialogColor(Me.textbox000.Properties("BackColor"))
End Sub
 
Private Sub CmdDoiMauKyTu_Click()
Dim lngRet As Boolean
    lngRet = aDialogColor(Me.textbox000.Properties("ForeColor"))
    If lngRet = False Then Me.textbox000.Properties("ForeColor") = 0
End Sub

  
  Nếu muốn lưu lại giá trị đã thay đổi thì lưu giá trị BackColor và ForeColor đã chọn cho textbox lên table. Khi Load Form thì set các giá trị đó cho textbox.

  
  Ý mình là thế này!
  Giả sử trong một textbox1 và textbox2 để nhập liệu.
  Khi mình nhập liệu ở textbox1 là: "Tình khúc vàng - Đan trường thể hiện"
  và Khi mình nhập liệu ở textbox2 là: "Gót hồng - Lam trường thể hiện"
  Thì mình muốn tên "TÌNH KHÚC VÀNG"  và "GÓT HỒNG" này phải in đậm và màu đỏ, còn lại các chử khác là màu đen.
  ý mình là muốn giống trong word vậy đó, ưng in đậm thì mình cho in đậm, ưng đổi màu thì mình bôi đen chữ cần thiết chọn màu.
  Không biết có được không?

• RE: Thay đổi màu textbox khi đã khóa phím shift

  tranthanhan1962 > 15-06-17, 12:34 PM

  Access 2003 thì không thể format 2 màu chữ trong một textbox, bạn muốn vậy thì cắt nó ra làm 2 textbox cho từng phần
• Bài trước Bài tiếp