Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Xây dựng hàm định dạng chữ đậm cho một phần nội dung trong textbox
#1
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.
Chữ ký của dieptt Xin chào, mình là dieptt, Tham gia http://thuthuataccess.com/forum từ ngày 04-11 -13.
Reply
Những người đã cảm ơn
#2
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.
Chữ ký của dieptt Xin chào, mình là dieptt, Tham gia http://thuthuataccess.com/forum từ ngày 04-11 -13.
Reply
Những người đã cảm ơn
#3
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.
Chữ ký của khuuquytrung Không gì là bí mật cả (hãy cùng chia sẻ và nhận sẻ chia)
Reply
Những người đã cảm ơn
#4
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
Chữ ký của tt1212 Nhận lập trình ứng dụng Access, PHP, C#  và hỗ trợ các bạn viết phần mềm ĐT:0989.276.236
Email. Tantriviet.vnn@gmail.com
Reply
Những người đã cảm ơn dieptt
#5
(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 ??.
Chữ ký của dieptt Xin chào, mình là dieptt, Tham gia http://thuthuataccess.com/forum từ ngày 04-11 -13.
Reply
Những người đã cảm ơn
#6
không làm được bạn ah!
ღღღღღTài sản của bomnhauag (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
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.
Chữ ký của paulsteigel ====================
Quốc gia hưng vong
Thất phu hữu trách
====================
Reply
Những người đã cảm ơn Noname
#8
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
Chữ ký của DustWind Xin chào, mình là DustWind, Tham gia http://thuthuataccess.com/forum từ ngày 09-11 -13.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 61 21,021 18-06-17, 08:49 AM
Bài mới nhất: lehongduc
  Sử dụng Windows Media Player trên access victorkieu 3 320 02-05-17, 10:45 AM
Bài mới nhất: paulsteigel
  Hướng Dẫn [Video] Hướng dẫn sử dụng Class Modules maidinhdan 2 264 20-03-17, 12:24 AM
Bài mới nhất: bvchauthanh
  [Help] Add Ngày tháng lên textbox HoangManh 4 261 16-03-17, 03:03 PM
Bài mới nhất: trangdv.pchg
  Tránh xung đột dữ liệu trong access quocdung9999 17 2,924 11-03-17, 04:12 PM
Bài mới nhất: quocdung9999

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ