
string filename = textBox1TextTrim();
string context = textBox2TextTrim();
FileInfo fi = new FileInfo("c:\\" + filename + "txt");
StreamWriter sw = fiAppendText();
swWrite(context);
swClose();
swDispose();
label,就会到label的点击事件里。
然后在事件里写:
textBox1text =lable1text;//假如你要点击的label叫label1;
这样就好了。
Function InStr([Start], [String1], [String2], [Compare As VbCompareMethod = vbBinaryCompare])
返回在另一字符串中第一次出现某一字符串的位置
eg: msgbox instr("a:"":我""",":") 结果为 2
Function InStrRev(StringCheck As String, StringMatch As String, [Start As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare]) As Long
返回在另一字符串中第一次出现某一字符串的位置 从后面查找
MsgBox InStrRev("a:"":我""", ":") 结果为 4
Function Join(SourceArray, [Delimiter]) As String
把数组转换成字符串 可查下
eg: 有数组 a()={"123","234","345"}'这里的语法在vb中不能用 vbnet 可以
join(a,"b") 结果为 123b234b345
Function Split(Expression As String, [Delimiter], [Limit As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare])
把字符串分成 数组 与Join 相反
eg:有字符串 “123b234b345”
dim a()
a=Split("123b234b345","b")
结果为: a()={"123","234","345"}
然后 就是你用过的 mid left right replace 等等 其实上面的几个查找函数 基本 就能解决你的问题了
Private Sub CommandButton1_Click() Dim TBarray(1 To 13) As Control For i = 1 To 13 Set TBarray(i) = Controls("TextBox" & i) TBarray(i) = ApplicationText(TBarray(i)Text
"00") 2015-07-18 15:14:48 补充: Sheets("Sheet3")Cells(i
1)NumberFormatLocal = "@" Sheets("Sheet3")Cells(i
1) = TBarray(i)Text Next i End Sub 将上面2段组合试试 2015-07-18 22:18:55 补充: Private Sub CommandButton1_Click() Dim TBarray(1 To 13) As Control For i = 1 To 13 Set TBarray(i) = Controls("TextBox" & i) TBarray(i) = ApplicationText(TBarray(i)Text
"00") Sheets("Sheet3")Cells(i
1)NumberFormatLocal = "@" Sheets("Sheet3")Cells(i
1) = TBarray(i)Text Next i End Sub 试试补充说明: 1因为版大的TextBox控制项共13个
为省去一个一个的程式设定
故以阵列的方式来达成 2Dim TBarray(1 To 13) As Control ->定义一个共有13个控制项的阵列 3Set TBarray(i) = Controls("TextBox" & i) ->把阵列指定为TextBox控制项 4TBarray(i) = ApplicationText(TBarray(i)Text
"00") ->把TextBox控制项的值转为2位数 5Sheets("Sheet3")Cells(i
1)NumberFormatLocal = "@" ->因TextBox控制项的值复制到Sheet3的储存格时会是数值各式
透过这行把它转为文字格式
For i = 1 To 13 With Sheet3Cells(i
1) NumberFormatLocal = "@" Value = Format(OLEObjects("TextBox" & i)ObjectText
"00") End With Next 参考即可~~ 2015-07-18 17:08:47 补充: 如果是使用Form输入,表单名为Form1 Format(Form1("TextBox" & i)Text
"00")
水哦~~~ 可否烦请C大稍微解说一下
下面各行的意思
后请移驾回答区
以便答赠
谢谢~~ Dim TBarray(1 To 13) As Control Set TBarray(i) = Controls("TextBox" & i) TBarray(i) = ApplicationText(TBarray(i)Text
"00") Sheets("Sheet3")Cells(i
1)NumberFormatLocal = "@"
靠服务器端会占用太多资源了吧,建议用javascript吧
documentgetElementsByTagName("TagName") 获取页面标签元素
value属性就是赋值获得的是一个数组,要循环赋值
具体代码:
<script language="javascript" type="text/javascript">
var inPuts=documentgetElementsByTagName("input"); //获取页面所有input标签元素,inPuts类型会自动设为数组
for(var i=0;i<inPutslength;i++) //遍历inPuts数组
{
if(inPuts[i]type=="text") //判断类型是否为文本框
{
inPuts[i]value=" "; //为文本框赋值
}
}
</script>
获取的标签是input,不是textbox,因为经过服务器的解析编译后,textbox在浏览器中是会被解析编译为<input type="text" />的
放在</body>和</html>之间吧
在C#中,您可以通过以下几种方式在一个窗体中调用另一个窗体的控件中的数据:
使用对话框形式调用另一个窗体,在打开的窗体中通过控件名称读取数据。
通过实例化另一个窗体,将其显示为模态对话框,读取控件中的数据。
通过使用公共属性或公共方法从另一个窗体读取数据。
以下是一个例子,该例子使用对话框形式调用另一个窗体:
Form2 frm = new Form2();
frmShowDialog();
textBox1Text = frmtextBox2Text;
在上面的代码中,我们实例化了窗体Form2,并调用了ShowDialog()方法将其显示为模态对话框。 然后,我们读取了窗体Form2中textBox2的文本,并将其分配给主窗体中的textBox1。
以上就是关于c#文本框中的内容保存成txt,文件名用另一个文本框中的内容命名,怎么写全部的内容,包括:c#文本框中的内容保存成txt,文件名用另一个文本框中的内容命名,怎么写、错误 1 当前上下文中不存在名称“textBox” C:\BegVCSharp\Chapter03\计算器 \计算器 \Form1.cs、VB如何获取textbox指定的字符串,如果有规律的字符如何抓取等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)