Tùy chọn
Làm thế nào để tạo inputbox trên form ms access có thông báo unicode tiếng việt
- Làm thế nào để tạo inputbox trên form ms access có thông báo unicode tiếng việt
-
Làm thế nào để tạo inputbox trên form ms access có thông báo unicode tiếng việt
quanghoasla > 22-07-11, 12:58 AM
em xin được chào cả nhà. anh / chị ơi em đang bị mắc về phần inputbox có thông báo bằng tiếng việt. hiện tại em điều chỉnh như thế nào cũng không thể hiện được font tiếng việt. có anh chị nào biết cách không? em xin được nhờ các anh chị chỉ giáo giúp em với.
-
RE: Làm thế nào để tạo inputbox trên form ms access có thông báo unicode tiếng việt
domfootwear > 22-07-11, 09:52 AM
Nếu bạn chịu gõ kiểu TCVN3(ABC) thì mình sẽ có cách giúp bạn. -
RE: Làm thế nào để tạo inputbox trên form ms access có thông báo unicode tiếng việt
quanghoasla > 22-07-11, 11:01 AM
bạn ơi có kiểu nào hiển thị font unicode trong iput box ? nếu sử dung tcvn(ABC) thì toàn bộ dữ liệu của mình phải được convert lại. mình lại chưa biết convert font từ unicode sang TCVN(ABC) nếu bạn đã có cách rồi thì bạn giúp mình với. cám ơn bạn đã quan tâm tới nội dung bài viết tình huống của mình. -
RE: Làm thế nào để tạo inputbox trên form ms access có thông báo unicode tiếng việt
domfootwear > 22-07-11, 11:20 AM
Đưa code sau vào module:
Tạo 1 form, trong form vẽ 2 command có tên lần lược là cmdInputBox, cmdMsgBoxMã PHP:Option Compare Database
Option Explicit
Public Const SPI_GETNONCLIENTMETRICS = 41
Public Const SPI_SETNONCLIENTMETRICS = 42
Public Const SPI_GETICONTITLELOGFONT = 31
Public Const SPI_SETICONTITLELOGFONT = 34
Public Const SPIF_UPDATEINIFILE = 1
Public Const SPIF_SENDCHANGE = 2
Public Const hlfHeight = -12
Public Type LOGFONT
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Byte
lfUnderline As Byte
lfStrikeOut As Byte
lfCharSet As Byte
lfOutPrecision As Byte
lfClipPrecision As Byte
lfQuality As Byte
lfPitchAndFamily As Byte
lfFaceName As String * 32
End Type
Public Type NONCLIENTMETRICS
cbSize As Long
iBorderWidth As Long
iScrollWidth As Long
iScrollHeight As Long
iCaptionWidth As Long
iCaptionHeight As Long
lfCaptionFont As LOGFONT
iSmCaptionWidth As Long
iSmCaptionHeight As Long
lfSmCaptionFont As LOGFONT
iMenuWidth As Long
iMenuHeight As Long
lfMenuFont As LOGFONT
lfStatusFont As LOGFONT
lfMessageFont As LOGFONT
End Type
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Public m_nonClientMetric As NONCLIENTMETRICS
Public m_logFont As LOGFONT
Public m_fontCaption As String * 32
Public m_sizeFontCaption As Integer
Public m_fontSmCaption As String * 32
Public m_sizeFontSmCaption As Integer
Public m_fontMenu As String * 32
Public m_sizeFontMenu As Integer
Public m_fontMessage As String * 2
Public m_sizeFontMessage As Integer
Public m_fontStatus As String * 32
Public m_sizeFontStatus As Integer
Public m_fontIcon As String * 32
Public m_sizeFontIcon As Integer
Public Sub MoFont(fontname As String)
Dim ret As Long
m_nonClientMetric.cbSize = Len(m_nonClientMetric)
ret = SystemParametersInfo(SPI_GETNONCLIENTMETRICS, Len(m_nonClientMetric), m_nonClientMetric, SPIF_UPDATEINIFILE Or SPIF_SENDCHANGE)
ret = SystemParametersInfo(SPI_GETICONTITLELOGFONT, Len(m_logFont), m_logFont, SPIF_UPDATEINIFILE Or SPIF_SENDCHANGE)
m_fontCaption = m_nonClientMetric.lfCaptionFont.lfFaceName
m_sizeFontCaption = m_nonClientMetric.lfCaptionFont.lfHeight
m_fontSmCaption = m_nonClientMetric.lfSmCaptionFont.lfFaceName
m_sizeFontSmCaption = m_nonClientMetric.lfSmCaptionFont.lfHeight
m_fontMenu = m_nonClientMetric.lfMenuFont.lfFaceName
m_sizeFontMenu = m_nonClientMetric.lfMenuFont.lfHeight
m_fontMessage = m_nonClientMetric.lfMessageFont.lfFaceName
m_sizeFontMessage = m_nonClientMetric.lfMessageFont.lfHeight
m_fontStatus = m_nonClientMetric.lfStatusFont.lfFaceName
m_sizeFontStatus = m_nonClientMetric.lfStatusFont.lfHeight
m_fontIcon = m_logFont.lfFaceName
m_sizeFontIcon = m_logFont.lfHeight
m_nonClientMetric.lfCaptionFont.lfFaceName = fontname & vbNullChar
m_nonClientMetric.lfSmCaptionFont.lfFaceName = fontname & vbNullChar
m_nonClientMetric.lfMenuFont.lfFaceName = fontname & vbNullChar
m_nonClientMetric.lfMessageFont.lfFaceName = fontname & vbNullChar
m_nonClientMetric.lfStatusFont.lfFaceName = fontname & vbNullChar
ret = SystemParametersInfo(SPI_SETNONCLIENTMETRICS, Len(m_nonClientMetric), m_nonClientMetric, SPIF_UPDATEINIFILE Or SPIF_SENDCHANGE)
m_logFont.lfFaceName = fontname & vbNullChar
ret = SystemParametersInfo(SPI_SETICONTITLELOGFONT, Len(m_logFont), m_logFont, SPIF_UPDATEINIFILE Or SPIF_SENDCHANGE)
End Sub
Public Sub DongFont()
Dim ret As Long
m_nonClientMetric.lfCaptionFont.lfFaceName = m_fontCaption
m_nonClientMetric.lfCaptionFont.lfHeight = m_sizeFontCaption
m_nonClientMetric.lfSmCaptionFont.lfFaceName = m_fontSmCaption
m_nonClientMetric.lfSmCaptionFont.lfHeight = m_sizeFontSmCaption
m_nonClientMetric.lfMenuFont.lfFaceName = m_fontMenu
m_nonClientMetric.lfMenuFont.lfHeight = m_sizeFontMenu
m_nonClientMetric.lfMessageFont.lfFaceName = m_fontMessage
m_nonClientMetric.lfMessageFont.lfHeight = m_sizeFontMessage
m_nonClientMetric.lfStatusFont.lfFaceName = m_fontStatus
m_nonClientMetric.lfStatusFont.lfHeight = m_sizeFontStatus
ret = SystemParametersInfo(SPI_SETNONCLIENTMETRICS, Len(m_nonClientMetric), m_nonClientMetric, SPIF_UPDATEINIFILE Or SPIF_SENDCHANGE)
m_logFont.lfFaceName = m_fontIcon
m_logFont.lfHeight = m_sizeFontIcon
ret = SystemParametersInfo(SPI_SETICONTITLELOGFONT, Len(m_logFont), m_logFont, SPIF_UPDATEINIFILE Or SPIF_SENDCHANGE)
End Sub
Code cho form
Mã PHP:Option Compare Database
Private Sub cmdInputBox_Click()
Dim strName
strName = InputBox("Tui lµ InputBox TiÕng ViÖt ®©y nÌ b¹n ¬i ", "InputBox TiÕng ViÖt ®©y nÌ")
If strName = vbNullString Then Exit Sub
MsgBox strName, vbInformation, "Xin chµo tÊt c¶ c¸c b¹n"
End Sub
Private Sub cmdMsgBox_Click()
MsgBox "§©y lµ hép tho¹i TiÕng ViÖt", vbExclamation, "Th«ng b¸o"
End Sub
Private Sub Form_Load()
MoFont ("VK Sans Serif")
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call DongFont
End Sub -
RE: Làm thế nào để tạo inputbox trên form ms access có thông báo unicode tiếng việt
quanghoasla > 22-07-11, 11:55 AM
cái của bạn nó chỉ được mỗi cảnh báo trong đoạn code này thôi. còn các cảnh báo msgox và font trên đatabase bị loằng ngoằng hết. nếu điều chỉnh font kia sang (Time new roman) nhưng không được. có cách nào conver toàn bộ font chữ trong các table sang TCVN(ABC)? bạn. -
RE: Làm thế nào để tạo inputbox trên form ms access có thông báo unicode tiếng việt
quanghoasla > 22-07-11, 03:22 PM
cách của domfootwear rất hay cái này nó can thiệp vào font aperance của window. trong lúc load thì nó chỉ sử dụng một fần font của window phần mình muốn load thôi. không ảnh hưởng gì đến msgboxuni code tiếng việt cả. mình áp dụng vào trường hợp của mình là như thế này. mình chỉ sử dụng một phần của thông báo inputbox bằng font tiếng việt VK sans sefit thôi. không hoàn toàn sử dụng hết. như vậy mình vẫn đảm bảo được trong inputbox hiển thị được tiếng việt ngon lành domfootware ạ.
đây là hình ảnh của mình
![[Hình: 2548082227de1f6b3d5ab8d7592ff1a2be8f7867...2f1f4g.jpg]](http://img3.mediafire.com/2548082227de1f6b3d5ab8d7592ff1a2be8f7867b37afa33d6040a1c72332f1f4g.jpg)
Chúc bạn và mọi người vui vẻ. -
RE: Làm thế nào để tạo inputbox trên form ms access có thông báo unicode tiếng việt
domfootwear > 22-07-11, 05:36 PM
Vấn đề mình đưa ra là tổng thể, bạn tùy biến mà sử dụng, như vậy mới mau tiến bộ. -
RE: Làm thế nào để tạo inputbox trên form ms access có thông báo unicode tiếng việt
quanghoasla > 23-07-11, 01:28 PM
cái inputbox của em nếu nhập số thì ok. còn nếu nhập kiểu text" kiểu chuỗi ký tự thì bị lỗi.em muốn format input slxuat kieu number thì làm kiểu gì. mong anh/chị chỉ giáo -
RE: Làm thế nào để tạo inputbox trên form ms access có thông báo unicode tiếng việt
domfootwear > 23-07-11, 01:43 PM
(23-07-11, 01:28 PM)quanghoasla Đã viết: cái inputbox của em nếu nhập số thì ok. còn nếu nhập kiểu text" kiểu chuỗi ký tự thì bị lỗi.em muốn format input slxuat kieu number thì làm kiểu gì. mong anh/chị chỉ giáo
Bạn thử code sau:
Mã PHP:Private Sub cmdInputBox_Click()
Dim strName As Integer
strName = InputBox("Tui lµ InputBox TiÕng ViÖt ®©y nÌ b¹n ¬i ", "InputBox TiÕng ViÖt ®©y nÌ")
If Len(strName) = 0 Then Exit Sub
MsgBox strName, vbInformation, "Xin chµo tÊt c¶ c¸c b¹n"
End Sub
-
RE: Làm thế nào để tạo inputbox trên form ms access có thông báo unicode tiếng việt
quanghoasla > 23-07-11, 01:58 PM
Vẫn bị bạn ơi. bạn test thử xem sao. cái đó hiện thông báo lỗi như sau: Run-time error : 13 type mistmach