naoga

在各类软件中实现蒙文的方法!

1、网页中显示蒙古文字的方法 


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" 
"http://www.w3.org/TR/html4/loose.dtd"> 
<html> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title>无标题文档</title> 
   
</head> 
<body> 
<table width="447" height="345" border="0"> 
  <tr> 
    <th valign="top" scope="col"><div style="layout-flow:vertical-ideographic; font-weight: bold;"> 
      <p align="left">      <br> 
      <br> 
      <br> 
      <br> 
             <br> 
            <br> 
           <br> 
            <br> 
      <br> 
      <br> 
      <br> 
      <br> 
          <br> 
         <br> 
          <br> 
          <br> 
      <br> 
      <br> 
      <br> 
      <br> 
           <br> 
           <br> 
            <br> 
         <br> 
      <br> 
        <br> 
        </p> 
    </div></th> 
  </tr> 
</table> 
</body> 
</html> 

//在web中无控件实现蒙文!!!! 
『 
<table > 
<tr> 
      <td style="writing-mode: tb-rl" ><font size="6" color="#0000FF" face="Menksoft  ">      </font></td> 
      <td valign="top" ><div class="layer  STYLE1" id="mgl_1" oncontextmenu="selectItem(this.id)" > 
          <P><span class="STYLE11"><%=mgl_1%></span></p> 
        </div> 
       </td> 
       <td style="writing-mode: tb-rl"><font color="#00FF00" size="6" face="Menksoft  ">      </font></td> 
      <td valign="top" ><div class="layer  STYLE2" id="mgl_2" oncontextmenu="selectItem(this.id)" > 
          <P><span class="STYLE21"><%=mgl_2%></span></p> 
        </div> 
       </td> 
       <td style="writing-mode: tb-rl" ><font size="6" color="#FF00FF" face="Menksoft  ">      </font></td> 
             <td valign="top" ><div class="layer  STYLE3" id="mgl_3" oncontextmenu="selectItem(this.id)"> 
          <P><span class="STYLE31"><%=mgl_3%></span></p> 
        </div> 
       </td> 
       <td style="writing-mode: tb-rl" ><font size="6" color="#FF0000" face="Menksoft  ">      </font></td> 
             <td valign="top"><div class="layer  STYLE4" id="mgl_4" oncontextmenu="selectItem(this.id)"> 
          <P><span class="STYLE41"><%=mgl_4%></span></p> 
        </div> 
       </td> 
       <td style="writing-mode: tb-rl" ><font size="6" color="#008000" face="Menksoft  ">      </font></td> 
        <td valign="top" width="4"><div class="layer  STYLE5" id="mgl_5" oncontextmenu="selectItem(this.id)"> 
        <P><span class="STYLE51"><%=mgl_5%></span></p> 
        </div> 
       </td> 
</tr> 
</table> 
』 

2、在各种开发工具中实现的方法: 
在这里我运用了一种比较笨的方法!大家不好见笑哦!!! 
我还是利用了 Windows 里自带的网页空间!!Microsoft  internet controls 控件!! 
为什么运用它!! 
原理很简单!!web中能够实现!因为通过HTML 标识来实现的,那么我们就可以想到,在开发工具嵌入HTML脚本来让蒙文显示“竖排”是不是不难啊! 

下面我就举个  通过VB 6.0 Windows xp sp3 实现! 
Sub reach() 
Dim a As String 
Dim b As String 
Dim c As String 
a = Text3             ’<style type="text/css"> .tnt {Writing-mode:tb-rl;Text-align:center;font-size:x-large} </style> 
b = Text4            ‘<span class="tnt"> 
  'WebBrowser1.Width = p.Width '* 16 / 26 
  'WebBrowser1.Height = p.Height ' * 16 / 26 
'  WebBrowser1.Navigate "about:blank" 
  WebBrowser1.Document.Open 
  WebBrowser1.Document.writeln "<HTML>" 
  WebBrowser1.Document.writeln "<HEAD>" 
  WebBrowser1.Document.writeln a 
  WebBrowser1.Document.writeln "</HEAD>" 
'  WebBrowser1.Document.writeln "<BODY scroll=" & VBA.Chr(34) & "no" & VBA.Chr(34) & " oncontextmenu=self.event.returnValue=false>" 
  WebBrowser1.Document.writeln "<div style=" & VBA.Chr(34) & "position:absolute; left: 0; top: 0" & VBA.Chr(34) & ">" 
  WebBrowser1.Document.writeln "<IMG SRC=" & VBA.Chr(34) & sPath & VBA.Chr(34) & " BORDER=" & VBA.Chr(34) & "0" & VBA.Chr(34) & ">" 
  WebBrowser1.Document.writeln "</div>" 
  WebBrowser1.Document.writeln "<Br>" 
  WebBrowser1.Document.writeln "<B>" 
  WebBrowser1.Document.writeln b 
  WebBrowser1.Document.writeln Text1  ‘这里大家可以看看!可能对有所收获!text1里是搜索后的结果!! 
  WebBrowser1.Document.writeln "<B>" 
  WebBrowser1.Document.writeln "</span>" 
  WebBrowser1.Document.writeln "</BODY>" 
  WebBrowser1.Document.writeln "</HTML>" 
  WebBrowser1.Refresh 
End Sub 

在开发工具中 text控件中,蒙文是 横向 显示!!但是大家 不用担心,我们有方法! 
可以看看!上面红色表示的部分!!你就应该明白!我要给大家想说明的问题!! 
方法是很土了一点!!可以参考!! 

小诺weblog欢迎访问!!

评论