VB的textbox的内容如何上下左右都居中?
Text1.Alignment = 0
'左对齐
Text1.Alignment = 1
'右对齐
Text1.Alignment = 2
'居中
<!--
div {
position:absolute;
top:50%;
left:50%;
margin:-150px 0 0 -200px;
width:400px;
height:300px;
border:1px solid #008800;
}
-->
让层垂直居中于浏览器窗口
其实解决的思路是这样的:首们需要position:absolute;绝对定位。而层的定位点,使用外补丁margin负值的方法。负值的大小为层自身宽度高度除以二。
如:一个层宽度是400,高度是300。使用绝对定位距离上部与左部都设置成50%。而margin-top的值为-150。margin-left的值为-200。这样我们就实现了层垂直居中于浏览器的样式编写
注:上面的是一般用于垂直居中与浏览器,想解决div垂直居中与外层div的话,只需要给外层div加上position:relative;就好了;记住,外层div要设定高度和宽度
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
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 Const EM_GETRECT = &HB2
Private Const EM_SETRECTNP = &HB4
Sub VerMiddleText(mText As TextBox)
If mText.MultiLine = False Then Exit Sub
Dim rc As RECT, tmpTop As Long, tmpBot As Long
SendMessage mText.hwnd, EM_GETRECT, 0, rc
With Me.Font
.Name = mText.Font.Name
.Size = mText.Font.Size
.Bold = mText.Font.Bold
End With
tmpTop = ((rc.Bottom - rc.Top) - _
(mText.Parent.TextHeight("H") \ Screen.TwipsPerPixelY)) \ 2
tmpBot = ((rc.Bottom - rc.Top) + _
(mText.Parent.TextHeight("H") \ Screen.TwipsPerPixelY)) \ 2
rc.Top = tmpTop
rc.Bottom = tmpBot
mText.Alignment = vbCenter
SendMessage mText.hwnd, EM_SETRECTNP, 0&, rc
mText.Refresh
End Sub
Private Sub Form_Load()
VerMiddleText Text1
End Sub
可用在文本框的textalign属性里设置
该属性在text属性的下面
文本框简单..
Text1.Alignment = 2
MS不能吧?
在C#窗体程序中,如何改变TextBox的颜色,我指的是我知道具体的RBG值...
你是不知道如何通过RGB取颜色是吗?FromArgb(int r,int g,int b);Color color = Color.FromArgb(1, 2, 3);TextBox和颜色相关的属性只有BackColor背景色,ForeColor字体色.不知道你想改哪个? 不过无所谓.只要赋值即可.想改什么改什么.PS:给新手:假设界面已经有textBox1.那么:textBox1.BackColor ...
怎么给新打开的窗体的textbox赋值?
分两种情况而定 首先,第一种情况:通过属性浏览器设置textbox的text属性,前提是,这个窗体不是动态生成的 第二种情况:通过编辑代码给textbox.text赋值:只是给textbox.text赋值而已,用不着传来传去的,要么在窗体的构造函数中赋值,要么在窗体的LOAD事件中给于赋值:具体代码:借用楼上的:public ...
C# textBox多次继续输出
设置textBox的属性Multiline 为true 在设置 属性ScrollBars 属性 表示是否有滚动条 然后再用:textBox1.AppendText(string);appendtext是向文本框追加文本
C#中,在多个textbox中输入值的求和计算
int a;int.TryParse(textBox1.Text,out a);int b;int.TryParse(textBox2.Text,out b);int c;int.TryParse(textBox3.Text, out c);int sum = a + b + c;MessageBox.Show(sum.ToString());
VBA代码编写,在窗体的文本框TextBox1中输入不大于9的整数,然后计算其阶 ...
Private Sub CommandButton1_Click()Dim a, b1, b2, i, tmp Set b1 = Me.TextBox1 Set b2 = Me.TextBox2 a = b1.Text If Len(a) = 0 Then tmp = "#Len = 0": GoTo 1000 If Not IsNumeric(a) Then tmp = "#Not Is Number": GoTo 1000 a = a * 1 If Int(a) <> ...
C#窗体中,有两个textbox ,怎么让textbox1 中输入的几个数字相加。并在t...
先convert.toint32 相加 再tostring
c#的窗体中,想在textBox里输入+号和-号要怎么写代码呢?
用字符串 int a;int c;int d;int32.TryParse(textBox2.Text.Trim(), out a);int32.TryParse(textBox3.Text.Trim(), out c);int32.TryParse(textBox4.Text.Trim(), out d);string b=textBox2.Text;if(b=="+"){ d=a+c;} else d=a-c;textBox4.Text =d.ToString();
c#中如何使一个TextBox禁止输入,但有删除操作
可以将TextBox的readonly属性置为true,不过这样TextBox就会变成灰色,也可以采用如下的方法:处理TextBox的KeyPress事件,private void textBox1_KeyPress(object sender, KeyPressEventArgs e){ if (e.KeyChar != (char)Keys.Back){\/\/如果按下的不是回退键,则取消本次(按键)动作 e.Handled = ...
C# windows应用程序中,如何从文本框TextBox中提取数字?
下面是我遇到类似的问题时做的笔记,我的处理过程。我处理的时候是将所有的结合到一起处理的。这种问题有好多种解决方法,每个人的思路都不一样但是最后都会有一个相同的结果,希望我的方法可以给你起到一个抛砖引玉的作用。方法一:将TextBox的赋给一个String类型的值,例如 String a = TextBox....
如果在VBA中多个文本框输入的值是固定的?
Private Sub CommandButton1_Click()Dim i%, s$, isum&, ar For i = 1 To 3 '遍历文本框的编号 s = Controls("TextBox" & i).Value '当前文本框的值 If Not s = "" Then If s Like "###-###" Then ar = Split(s, "-") '按-符号分隔为数组 isum = isum + Val(ar(1...
段干咸盖曲: 可以把TextBox控件的Align属性设成Center
临湘市19394942294: vb中用SendMessage发送命令 怎么实现文本框的内容上下滚动 - ?
段干咸盖曲: ---- 1. 在Visual Basic 中 开 始 一 个 新 的 工 程, 采 用 缺 省 的 方 法 建 立Form1. ---- 2. 将 如 下 常 量 和 声 明 语 句 添 加 到Form1 的 通 用 声 明 部 分 中( 注 意 该 声 明 语 句 需 要 书 写 在 一 行 内): ---- Private Declare Function ...
临湘市19394942294: VB中TextBox中文字如何靠下?
段干咸盖曲: textbox没有这个功能,你可以做1个ActiveX控件
临湘市19394942294: VB怎么实现文本框的翻页? - ?
段干咸盖曲: 在属性窗口中把:MultiLine设为 True
临湘市19394942294: vb.net textbox 中的内容如何从右往左写 - ?
段干咸盖曲: RightToLeft属性设为True
临湘市19394942294: 在VB程序编程中,在textbox的文本框中录入的文字怎么让他在文本框中移动呢 - ?
段干咸盖曲: 两种方案:1、定时修改文本内容2、将文本框放入图片框,并将文本框改成无边框,背景色同图片框,然后移动文本框 查看原帖>>
临湘市19394942294: 如何在VB中实现TextBox文本文字滚动 - ?
段干咸盖曲: Private Sub Timer1_Timer() tmp = Text1.Text Text1.Text = Right(tmp, Len(tmp) - 1) & Left(tmp, 1) End Sub
临湘市19394942294: VB文本框中怎么让它生成往下拉的选项啊 - ?
段干咸盖曲: 设计text1时在其属性框中(知道什么是属性框框吧??)直接把 multiline属性值改成true(多行显示) 接着往下拉,找到scrollbars属性 把它的值改成2(0为正常,1是有水平滚动条,2是有水平滚动条,3是都有) 这2个属性设置了就能在启动后有往下拉的选项了
临湘市19394942294: VB里如何让一个文本文件的内容在TEXTBOX控件里显示 - ?
段干咸盖曲: LZ要的是拖放并打开吧~试试这个吧~ text1的OLEDropMode要设为1~Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)Dim FF As IntegerFF = FreeFileDim a ...
临湘市19394942294: 如何利用VB将一个textbox的内容覆盖到另一个textbox中 - ?
段干咸盖曲: 2个textbox,一个按钮,不要改,复制代码过去运行 Private Sub Command1_Click() Text1.Text = Text2.Text End Sub