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

原创 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

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

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

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

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

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

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

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

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

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

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

编程题#2: 二维数组右上左下遍历 来源: POJ (Coursera声明:在POJ上完成的习题将不会计入Coursera的最后成绩。) 注意: 总时间限制: 1000ms 内存限制: 65536...

ViewGroup自定义布局(左上右下)

布局文件<RelativeLayout xmlns:android="http://schemas.android.com/apk/res/android" xmlns:tools="http...

左下右下对联

  • 2013-07-11 22:37
  • 986B
  • 下载

在地图计算圆的外接正方形,并返回左上顶点和右下顶点(java、javascript)

javascript: /** * @param raidus 单位米 * return minLat,minLng,maxLat,maxLng */ ...
  • e_wsq
  • e_wsq
  • 2012-05-14 16:05
  • 1117
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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