`
cjc
  • 浏览: 654525 次
  • 性别: Icon_minigender_1
  • 来自: 北京
社区版块
存档分类
最新评论

设置文本框的九种对齐方式(左上,中上,右上,左中,中中,右中,左下,中下,右下)

 
阅读更多

'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

分享到:
评论

相关推荐

    eWebeditor 5.5 完整破解 加强版目前能完整破解的最高版本,完全破解版 带后台 可以实现word excel的导入 word图片粘贴 (asp版本)

     (4) 水印的位置增加“以上随机”,即系统按原位置可选项(左上、左中、左下、中上、中中、中下 、右上、右中、右下)中随机选取。若文字水印和图片水印同时选择了“以上随机”,能避免两种水印重 叠。  (5) 增加...

    eWebEditor V5.5 改进版

     (4) 水印的位置增加“以上随机”,即系统按原位置可选项(左上、左中、左下、中上、中中、中下、右上、右中、右下)中随机选取。若文字水印和图片水印同时选择了“以上随机”,能避免两种水印重叠。  (5) 增加了...

    左中右键连发

    左中右键连发+鼠标侧键代替SHIFT(不判断窗口)快捷键`

    LOL界面美化 v1.0 绿色版.zip

    LOL界面美化优点: 仅在Game\ClientZips.txt中添加一行文本和Game目录...只包含了人物状态栏(左下)、技能栏(中下)、小地图(右下)、队友(左中)、当前本机信息(右上)的界面修改,没有修改得分栏、装备购买栏。

    图片添加水印的类(C#)

    图片水印 /// /// 服务器图片相对路径 /// 保存文件名 ... /// 图片水印位置 0=不使用 1=左上 2=中上 3=右上 4=左中 9=右下 /// 附加水印图片质量,0-100 /// 水印的透明度 1--10 10为不透明</param>

    一个可以左右交换数据的VB ListBox控件.rar

    一个可以左右交换数据的VB ListBox列表控件,可左中选择列表中的内容,选错了可 删除。

    newmen新贵无线键盘鼠标对码软件.rar

    4.打开鼠标电源开关或将电池装入鼠标,然后按下鼠标左中右键保持约三秒钟。5.若配对成功,右下角按键会提示“对码成功”,若失败请重复以上步骤。注:对码时接收器与键鼠应尽量靠近,配对成功后请重新拔插接收器。...

    SphinX人像识别

    然后张三的脸端正地对着镜头(如同身份证照相),眼看着视频画面中的自己,这时点按钮: ,然后张三的脸再分别上仰,下俯,左侧,右侧,每次都点上一个按钮,分别采下四个方向微偏角度的模板。 注意A:在点按钮的...

    基于jquery实现的鼠标左中右键单双击及拖拽和滚轮事件插件原型

    可以实现js的左键单击,双击,拖拽,右键单击,双击,拖拽,和中键的单击,双击和拖拽事件,以及滚轮事件,已经封装成jquery插件,调用方便,功能强大。

    复制键鼠操作并重复.rar

    压缩包中有C#的源代码,部分功能和快捷键可以自行添加。软件可以复制键鼠的操作,并...软件支持鼠标的左中右键点击、滚轮的上下、左右键框选和键盘输入操作,而且支持保存操作数据到txt文件中,下次可以直接读取数据。

    画面仕様 160603 (1)1

    画面操作仕様書有限会社平成 28 年 6 月 3 日内容画面操作仕様 3計測画面(補正値管理用) 3平均、掘進速度(左上表示) 4状態(左上表示) 4圧力(左中

    论文研究 - 颊部多组织血栓形成的血管畸形

    此外,在该病灶中发现了三个结节性肿瘤,在T1加权成像上显示出高信号,而在T2加权成像上显示出低信号。 根据这些影像学发现以及临床和病理学发现,该患者被诊断为左中面部有多处血管畸形。 三种结节性肿瘤在中央...

    mv-stats-for-obs:提供2个基于html的统计信息页面,供在obs multiviewer或浏览器中使用

    左中部分显示可用磁盘空间,但请注意,这不是绝对值,而是相对于obs发送的第一个可用磁盘空间值(基本上是记录开始之前的可用空间)计算得出的。 右中间部分显示当前渲染帧率。 底部文本显示了当前配置的记录路径。...

    KP-Sales:具有KPay销售报告的Fitbit OS应用程序

    第一个是在app / index.js中进行硬编码的,第二个是通过设置页面输入的。 当前,它是一种共享测试项目。 在iOS(iPhone X)上,消息传递非常糟糕。 因此,在随播广告中现在有了一个wakeInterval集,它通知设备随播...

    MousePosition

    使用VS2005(C#)做的鼠标定位程序,点击鼠标左中右键还可以给出提示

Global site tag (gtag.js) - Google Analytics