zoukankan      html  css  js  c++  java
  • 设置文本框的九种对齐方式(左上,中上,右上,左中,中中,右中,左下,中下,右下)

    'Add a commandbutton and a textbox( multiline=true) and copy the following codes to form1:

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
      
    Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
    End Type
    Private Const EM_SETRECT As Long = &HB3
    Private Const EM_SETRECTNP As Long = &HB4
    Dim i As Integer

    Sub alignment(ByVal txtbox As TextBox, ByVal index As Integer, ByVal txt As String)
    Dim r As RECT, atop As Long, h As Long
    SendMessage txtbox.hwnd, EM_GETRECT, 0, r
    Me.FontName = txtbox.FontName
    Me.FontSize = txtbox.FontSize
    Me.FontBold = txtbox.FontBold
    txtbox.Text = txt
    h = Me.TextHeight("H") / Screen.TwipsPerPixelY
    If index / 3 = 0 Then atop = 0
    If index / 3 = 1 Then atop = r.Bottom / 2 - h
    If index / 3 = 2 Then atop = r.Bottom - h
    r.Top = atop
    Debug.Print r.Top; r.Bottom
    txtbox.alignment = Array(vbLeftJustify, vbCenter, vbRightJustify)(index Mod 3)
    SendMessage txtbox.hwnd, EM_SETRECTNP, 0, r
    txtbox.Refresh
    End Sub

    Private Sub Command1_Click()
    Dim x() As String
    x = Split("左上,中上,右上,左中,中中,右中,左下,中下,右下", ",")
    alignment Text1, i, x(i)
    i = (i + 1) Mod 9
    End Sub

  • 相关阅读:
    c#泛型的使用
    关于Asp.net无法写入输出文件的原因
    利用OLEDB导出数据到Excel
    中秋祝福
    C#获取当前域用户名
    【程序员必读】骨灰级程序员20条编程经验
    SQL SERVER 2005无法远程连接的问题
    ASP.Net 实现伪静态方法及意义
    js+ajax获取文件大小
    C#遍历指定文件夹中的所有文件
  • 原文地址:https://www.cnblogs.com/fengju/p/6336332.html
Copyright © 2011-2022 走看看