Đá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 Present Nhận viết phần mềm, hỗ trợ viết phần mềm, hợp tác viết phần mềm trên nên Microsoft Access mọi phiên bản Liên hệ: Mr Đức -989276236. 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
Heart Chạy lệnh tự động theo thời gian định sẵn minhriohtn 1 124 22-12-16, 11:22 AM
Bài mới nhất: ongke0711
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 43 17,574 18-12-16, 03:37 PM
Bài mới nhất: huuduy.duy
  Hướng Dẫn Enter xuống dòng trong textbox thanhquyt 2 124 18-12-16, 09:43 AM
Bài mới nhất: thanhquyt
  Lấy record từ tbl1 làm thành field trong tbl2. MinhnHang 5 186 13-12-16, 03:05 PM
Bài mới nhất: ongke0711
Question [Help] Link tất các table trong một file.mdb bằng VBA MinhnHang 9 384 09-12-16, 06:11 PM
Bài mới nhất: maidinhdan

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ơ