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

  • 相关阅读:
    松软科技web课堂:SQLServer之ROUND() 函数
    松软科技web课堂:SQLServer之LEN() 函数
    接口工具比较
    记录EXCEL格式和TXT文本格式之间的互转
    Fiddler安装证书
    Nginx概述及安装配置
    YSLOW(一款实用的网站性能检测工具)
    通用测试用例大全
    Macaca环境配置及样例执行
    ADB命令
  • 原文地址:https://www.cnblogs.com/fengju/p/6336332.html
Copyright © 2011-2022 走看看