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

原创 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 ...
  • njudongchen
  • njudongchen
  • 2017年03月06日 16:29
  • 1920

网易雷火盘古实习2018笔试题

第一次笔试没有参加,但是牛客上已经有题了,很遗憾只做出前两道.感觉有很多要注意的地方,要不然根本做不完啊. 题目1: 给定一个字符串,请你将字符串重新编码,将连续的字符替换成“连续出现的个数+字符”。...
  • u010009169
  • u010009169
  • 2017年03月10日 20:04
  • 2927

寻找方向

http://blog.csdn.net/w7849516230/article/details/8163883 http://bbs.yingjiesheng.com/thread-1011893-...
  • lqglqglqg
  • lqglqglqg
  • 2014年03月07日 15:51
  • 391

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

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

网易的一道面试题

在一个N*N的数组中寻找所有横,竖,左上到右下,右上到左下,四种方向的直线连续D个数字的和里面最大的值...
  • qq_25184739
  • qq_25184739
  • 2017年03月05日 13:40
  • 1157

上至下 左至右递增数组寻找一数字

在一个二维数组中,每一行都按照从左到右递增的顺序排序,每一列都按照从上到下递增的顺序排序。请完成一个函数,输入这样的一个二维数组和一个整数,判断数组中是否含有该整数。 思路:首先我们选择从左下角开始...
  • qq_36120793
  • qq_36120793
  • 2017年09月16日 21:44
  • 42

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

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

求图像的周长(ZOJ1047)

给一个用 . 和X表示的图形,图形在上、下、左、右、左上、左下、右上、右下8个方向都被看作是连通的,并且图像中间不会出现空洞,求这个图形的边长。 输入: 首先给出m、n、x、y四个正整数,...
  • axiqia
  • axiqia
  • 2016年04月06日 17:27
  • 695

矩阵中从左上角到右下角的路径条数

题目:给定一个n*m矩阵,求从左上角到右下角总共存在多少条路径,每次只能向右走或者向下走。 解法一:和上一篇文章的思想相似,在此不再重复叙述。int uniquePaths(int m, int n...
  • yang20141109
  • yang20141109
  • 2016年05月31日 11:53
  • 2397

两道单片机编程题--求最大值和数据传送

1. 16个无符号整数(小于256)存于外部RAM区的1000H至100FH单元中,试编程找出其中的最大值并存入内部RAM的20H单元。2. 编程实现:把内部RAM中起始地址为DATA 1的数据传送到...
  • baidu_33836580
  • baidu_33836580
  • 2016年01月25日 11:38
  • 373
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:设置文本框的九种对齐方式(左上,中上,右上,左中,中中,右中,左下,中下,右下)
举报原因:
原因补充:

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