• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

RichTextbox thể hiện ký hiệu hóa học

Các thủ thuật liên quan đến xử lý chuỗi và thời gian
Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4756
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 509 time

RichTextbox thể hiện ký hiệu hóa học

Gửi bàigửi bởi truongphu » T.Năm 18/08/2011 9:24 am

Thủ thuật: RichTextbox thể hiện ký hiệu hóa học
Tác giả: truongphu
Mô tả: RichTextbox thể hiện ký hiệu hóa học



Bạn có thể dán sub sau đây vào Form hay Module để dùng một richtextbox có các ký tự số cao thấp:
  1. Public Sub CoThuHoahoc(aa As RichTextBox)
  2. If aa.Text = "" Then Exit Sub
  3. aa.Font.Size = 12
  4. Dim i&
  5. For i = 1 To Len(aa.Text)
  6.     If IsNumeric(Mid(aa.Text, i, 1)) And (i > 1) Then
  7.         If Not IsNumeric(Mid(aa.Text, i - 1, 1)) _
  8.         And ((Mid(aa.Text, i - 1, 1)) <> " ") Then
  9.         aa.SelStart = i - 1
  10.         aa.SelLength = 1
  11.         aa.SelFontSize = 8
  12.         aa.SelBold = True
  13.         aa.SelColor = vbRed
  14.     End If: End If
  15. Next
  16. aa.SelStart = Len(aa)
  17. End Sub


Kết quả:
untitled.JPG


Project:
Tập tin đính kèm
CT Hoa Hoc.rar
(1.59 KiB) Đã tải 473 lần


o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

chipmunk
Thành viên tích cực
Thành viên tích cực
Bài viết: 125
Ngày tham gia: T.Hai 28/03/2011 9:19 am
Has thanked: 2 time
Been thanked: 5 time

Re: RichTextbox thể hiện ký hiệu hóa học

Gửi bàigửi bởi chipmunk » T.Năm 25/08/2011 10:13 am

đọc code thì tui thấy chỗ not ínumeric,chỉ format chỉ số khi kí tự trước đó không phải kí tụ số,với công thức C12H26 thì sao
còn format sub thực sự thì thử mã rtf này xem sao rtb.rtf="\sub" & chỉ số & "\nosupersub",tuơg tự với \super để format công thức dạng ion như H+,SO4(2-)

Hình đại diện của người dùng
Kasper
Guru
Guru
Bài viết: 1062
Ngày tham gia: T.Sáu 16/05/2008 10:54 am
Has thanked: 2 time
Been thanked: 76 time
Liên hệ:

Re: RichTextbox thể hiện ký hiệu hóa học

Gửi bàigửi bởi Kasper » T.Sáu 26/08/2011 12:09 pm

Nếu ai xài VB.NET thì chơi cái này cho tiện nè, chỉ cần dùng thẻ sub hoặc sup thôi.

viewtopic.php?f=17&t=15551
Lành tợ tòng, ác tợ hoa,
Nhà hòa muôn việc đều nên.

chipmunk
Thành viên tích cực
Thành viên tích cực
Bài viết: 125
Ngày tham gia: T.Hai 28/03/2011 9:19 am
Has thanked: 2 time
Been thanked: 5 time

Re: RichTextbox thể hiện ký hiệu hóa học

Gửi bàigửi bởi chipmunk » T.Bảy 27/08/2011 10:15 am

ai cần mã format phơg trìh hóa học thì pm cho mình(khôg hiểu pm là nghĩa gì nữa),xủ lí chuỗi ra rtf,đã test trên vba


Quay về “[VB] Chuỗi và Thời gian”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách