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

Xây dựng hàm định dạng chữ đậm cho một phần nội dung trong textbox

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Help] Xây dựng hàm định dạng chữ đậm cho một phần nội dung trong textbox
• Xây dựng hàm định dạng chữ đậm cho một phần nội dung trong textbox

• Tạo chữ đậm cho một nội dung trong textbox

  dieptt > 08-11-13, 05:29 PM

  Nhờ mọi người giúp vấn đề này với:
  Mình muốn xây dựng 1 hàm hỗ trợ định dạng chữ đậm cho một phần nội dung nào đó trong text box của access. Vì dụ : textbox có nội dung là "Xin chào Các bạn" kết quả muốn hiển thị thành "Xin chào Các bạn".
  Xin cảm ơn mọi người.

• Xây dựng hàm định dạng chữ đậm cho một phần nội dung trong textbox

  dieptt > 08-11-13, 05:35 PM

  Nhờ mọi người giúp vấn đề này với:
  Mình muốn xây dựng 1 hàm hỗ trợ định dạng chữ đậm cho một phần nội dung nào đó trong text box của access. Vì dụ : textbox có nội dung là "Xin chào Các bạn" kết quả muốn hiển thị thành "Xin chào Các bạn".
  Xin cảm ơn mọi người.

• RE: Xây dựng hàm định dạng chữ đậm cho một phần nội dung trong textbox

  khuuquytrung > 08-11-13, 09:31 PM

  Chắc là không được vì nguyên tắc định dạng kiểu chữ nguyên cho textbox chứ không thể chia chữ ra rồi định dạng như bạn được.

• RE: Xây dựng hàm định dạng chữ đậm cho một phần nội dung trong textbox

  tt1212 > 09-11-13, 12:11 AM

  Làm được. Bạn chi cụm từ thành 2 phần ứng với 2 textbox
  Bạn thích chữ đâọ hay nhạt chi chỉnh trên textbox còn nội dung bạn dùng hàm cắt chuỗi rồi bỏ vào text là OK
  thử coi

• RE: Xây dựng hàm định dạng chữ đậm cho một phần nội dung trong textbox

  dieptt > 09-11-13, 09:44 AM

  (09-11-13, 12:11 AM)tt1212 Đã viết: Làm được. Bạn chi cụm từ thành 2 phần ứng với 2 textbox
  Bạn thích chữ đâọ hay nhạt chi chỉnh trên textbox còn nội dung bạn dùng hàm cắt chuỗi rồi bỏ vào text là OK
  thử coi

  ---

  Cảm ơn bạn, nhưng đó không phải là giải pháp. Còn cách nào nữa không ??.

• RE: Tạo chữ đậm cho một nội dung trong textbox

  bomnhauag > 09-11-13, 03:15 PM

  không làm được bạn ah!

• RE: Xây dựng hàm định dạng chữ đậm cho một phần nội dung trong textbox

  paulsteigel > 09-11-13, 09:44 PM

  Bạn này có cùng một câu hỏi mà lại đăng tại hai chỗ. Về câu hỏi của bạn, câu trả lời là không. Ngoại trừ việc dùng text box hỗ trợ định dạng richtext. Nếu muốn thế, bạn phải dùng một điều khiển khác.
  Nói chung, nên đơn giản hoá cách tư duy một chút, nếu bạn bắt buộc phải làm vậy thì chịu khó lên google tìm richtextedit control activeX.

• RE: Tạo chữ đậm cho một nội dung trong textbox

  DustWind > 10-11-13, 07:05 AM

  Nếu textbox thì thử xem cách này xem
  
  Option Explicit
  
  Sub test()
  
  ActiveSheet.Shapes(1).TextFrame2.TextRange.Characters(1, 10).Font.Bold = _
  msoTrue
  
  End Sub
  
  hoac là
  
  Sub test()
  
  '
  ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
  Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _
  "hhhhhh" & Chr(13) & "" & Chr(13) & "hello my buddy"
  Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 7).ParagraphFormat. _
  FirstLineIndent = 0
  With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 7).Font
  .NameComplexScript = "+mn-cs"
  .NameFarEast = "+mn-ea"
  .Fill.Visible = msoTrue
  .Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1
  .Fill.ForeColor.TintAndShade = 0
  .Fill.ForeColor.Brightness = 0
  .Fill.Transparency = 0
  .Fill.Solid
  .Size = 11
  .Name = "+mn-lt"
  End With
  Selection.ShapeRange(1).TextFrame2.TextRange.Characters(8, 1).ParagraphFormat. _
  FirstLineIndent = 0
  With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(8, 1).Font
  .NameComplexScript = "+mn-cs"
  .NameFarEast = "+mn-ea"
  .Fill.Visible = msoTrue
  .Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1
  .Fill.ForeColor.TintAndShade = 0
  .Fill.ForeColor.Brightness = 0
  .Fill.Transparency = 0
  .Fill.Solid
  .Size = 11
  .Name = "+mn-lt"
  End With
  Selection.ShapeRange(1).TextFrame2.TextRange.Characters(9, 9).ParagraphFormat. _
  FirstLineIndent = 0
  With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(9, 9).Font
  .Bold = msoTrue
  .NameComplexScript = "+mn-cs"
  .NameFarEast = "+mn-ea"
  .Fill.Visible = msoTrue
  .Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1
  .Fill.ForeColor.TintAndShade = 0
  .Fill.ForeColor.Brightness = 0
  .Fill.Transparency = 0
  .Fill.Solid
  .Size = 14
  .Name = "+mn-lt"
  End With
  End Sub

• RE: Xây dựng hàm định dạng chữ đậm cho một phần nội dung trong textbox

  toidjtjmtoi > 30-12-20, 10:25 AM

  . hóng

• RE: Xây dựng hàm định dạng chữ đậm cho một phần nội dung trong textbox

  ninhduy2004 > 19-07-21, 07:27 PM

  Mình cũng giống ý tưởng, làm hoài vẫn chưa xử lý được 
  Lý do: xếp muốn ý chính " chữ đậm" trong đoạn văn bản
• Bài trước Bài tiếp