Đá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 -  Phần mềm quản lý phòng khám http://tantriviet.net/
-  Hỗ trợ những khó khăn vướng mắc cần chia sẻ giải đáp:0941.655.079
-   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
  [Hỏi] Cập nhật thông tin từ Textbox của UnBound Form vào Listbox pherotao 4 178 09-12-17, 11:13 AM
Bài mới nhất: pherotao
  Sử dụng Dirty event của Form huylam 2 1,850 07-12-17, 05:31 AM
Bài mới nhất: vkaccess
  [Hỏi] câu lệnh where trong VBA xiketuan 1 60 06-12-17, 03:45 PM
Bài mới nhất: ongke0711
  [Hỏi] Dữ liệu trong mainForm và subForm pherotao 32 1,020 02-12-17, 03:00 PM
Bài mới nhất: pherotao
  Hướng Dẫn Lọc điều kiện trong Dcount mrsiro 2 106 30-11-17, 12:41 PM
Bài mới nhất: paulsteigel

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ơ