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

  • 相关阅读:
    DFS(深度优先搜索)
    dp动态规划 之 背包问题
    python选择排序的实现
    python冒泡排序实现
    python 数据类型
    SyntaxError: Missing parentheses in call to 'print'
    MFC位图传送错误之一
    SyntaxError :invalid syntax
    Python之命令行参数
    Python之print
  • 原文地址:https://www.cnblogs.com/fengju/p/6336332.html
Copyright © 2011-2022 走看看