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

原创 2006年06月05日 12:00:00

'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

android右上、右下、左上、左下手势滑动判断

在进行android开发过程中,我们有时会遇到一个界面需要手势的情况。但是看网上大多写上下左右的手势判断,就感觉很死板。非得要用户直上直下,平左右的滑动,不能有一点偏差,不然手势就不精确了。所以也就自...
  • Osborn_
  • Osborn_
  • 2017年09月20日 18:12
  • 88

[编程题]在一个N*N的数组中寻找所有横,竖,左上到右下,右上到左下,四种方向比较

在一个N*N的数组中寻找所有横,竖,左上到右下,右上到左下,四种方向的直线连续D个数字的和里面最大的值输入描述: 每个测试输入包含1个测试用例,第一行包括两个整数 N 和 D : 3 ...

网易编程:寻找所有横,竖,左上到右下,右上到左下,四种方向的所有和

[编程题] 最大和 在一个N*N的数组中寻找所有横,竖,左上到右下,右上到左下,四种方向的直线连续D个数字的和里面最大的值  输入描述: 每个测试输入包含1个测试用例,第一行包括两个整数...

编程题:在一个N*N的数组中寻找所有横,竖,左上到右下,右上到左下,四种方向的直线连续D个数字的和里面最大的值

在一个N*N的数组中寻找所有横,竖,左上到右下,右上到左下,四种方向的直线连续D个数字的和里面最大的值 输入描述:  每个测试输入包含1个测试用例,第一行包括两个整数 N 和 D :  3 ...

css控制固定在左下,右下,左上角的漂浮层

主题:使用CSS控制一个固定在左下,右下,左上角的漂浮层 其他说明: 此 Demo 未作浏览器兼容性测试(兼容在IE7,IE8,firefox,safari,opera,google chrom...

笔试算法题解析--二维数组右上到左下打印

这几天考了一些公司的笔试,现凭着一些记忆,对有关算法实现题做解析并实现。 1.二维数组,从右上到左下进行打印输出,如: 1  2  3 4  5  6  7 8 9 10 11 12  13...

百练noi21:二维数组右上左下遍历,24:蛇形填充数组

21:二维数组右上左下遍历 查看提交统计提问 总时间限制: 1000ms 内存限制: 65536kB 描述 给定一个row行col列的整数数组array,要...

【动态规划】求二维数组从左下到右上的最优路径

1.求二维数组从左下到右上的最优路径,使得路径和最大,并且只能向上或向下走。 解析:求最短路径,路径和最优等都可以用动态规划做。 dp[i][j]表示到i,j坐标的最优路径。 第一,确定初始条件...

[土狗之路]coursera C语言进阶习题 二维数组右上左下遍历

编程题#2: 二维数组右上左下遍历 来源: POJ (Coursera声明:在POJ上完成的习题将不会计入Coursera的最后成绩。) 注意: 总时间限制: 1000ms 内存限制: 65536...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:设置文本框的九种对齐方式(左上,中上,右上,左中,中中,右中,左下,中下,右下)
举报原因:
原因补充:

(最多只允许输入30个字)