1. vb怎么把数据输出到文本框上
privatesubcommand1_click()
open"c:\123.txt"forinputas#1
n=0
dowhilenoteof(1)
lineinput#1,a
n=n+1
ifn=3then
text1.text=a
exitdo
endif
loop
close#1
endsub
这样就可以了。用n来控制行数。当到达了第三行，就输出到文本框，然后退出循环。
2. vb将结果输出到窗体
#include<stdio.h>main(){inta,b,c,e;printf("请输入一个三位正整数:")
;scanf("%d",&a);b=a%10;c=(a/10)%10e=a/100;printf("%d%d%\n",b,c,e);}
3. vb在文本框中输出数字
1.在Excel表格表格的菜单栏上面点击【开发工具】，【Visual Basic】打开VBA编辑器。
2.在VBA编辑器的菜单栏上面点击【插入】，【模块】。
3.在代码框里面输入一下代码：
Sub MatchIput()
Dim i, j, m, k As Long '数据类型定义
Dim msg, style, title, ans
On Error Resume Next '如果运行过程中出错，则忽略
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表
Set mysheet2 = ThisWorkbook.Worksheets("Sheet2") '定义工作表
msg = "该用户信息已经存在，是否替换？"
style = vbYesNoCancel + vbDefaultButton3 '显示 “是” “否” “取消”三个按钮
title = "温馨提示"
m = Application.WorksheetFunction.Match(mysheet1.Cells(2, 2), mysheet2.Range("A1:A1000"), 0)
'计算单元格所在的位置
If m >= 1 Then '如果数据表里面已经存在，则弹出提示窗口，然后进行选择
ans = MsgBox(msg, style, title) '弹出提示
If ans = vbYes Then '如果选择“是”，则原来表格里面的数据将会被替换
For j = 1 To 4 '填充该单元格所在位置的1-4列
mysheet2.Cells(m, j) = mysheet1.Cells(j + 1, 2)
Next
End If
If ans = vbNo Then '如果选择“否”，则在原来表格里面找到空白的单元格写入
For k = 2 To 1000
If mysheet2.Cells(k, 1) = "" Then
For j = 1 To 4
mysheet2.Cells(k, j) = mysheet1.Cells(j + 1, 2)
Next
Exit For
End If
Next
End If
Else '如果不存在，则在原来数据表格里面找到一行空白进行填充
For k = 2 To 1000
If mysheet2.Cells(k, 1) = "" Then
For j = 1 To 4
mysheet2.Cells(k, j) = mysheet1.Cells(j + 1, 2)
Next
Exit For
End If
Next
End If
End Sub
4.回到Sheet1工作表界面，点击菜单栏上面的【插入】，在形状里面选择“矩形”插入到表格上面，然后填充所需的颜色、文字。
5.在已经绘制后的矩形图上面单击右键，选择“指定宏”。
6.在“指定宏”对话框里面选择已经编写的VBA名称，如：MatchIput。
7.在要录入信息的区域录入信息，然后点击“录入”即可录入信息。
8.如果录入的信息（姓名）在原来的表格在原来表格里面已经存在，则会弹出提示信息，之后进行选择。如果选择“是”则执行替换原来的信息；如果选择“否”，则会新增一行信息；如果选择“取消”，则不会录入信息。
4. vb输出到文件
复制到剪切板的主要代码：Clipboard.SetText str示例（示例文件1.txt）：其中的Clipboard.Clear表示清空剪切板（推荐清空一次）App.Path & "\1.txt"读取剪切板主要代码：s = Clipboard.GetText()
5. vb输出到word
Dim ap As Word.Application, doc As DocumentPrivate Sub Form_Load() '这个过程不必做修改，是建立一个新的Word文档Set ap = CreateObject("word.application")ap.Visible = FalseSet doc = ap.Documents.AddEnd SubPrivate Sub Command1_Click()'doc.Content.InsertAfter Text:="请输入你要输入的内容" '插入文字，请使用这种格式doc.Content.InsertAfter Text1.Textdoc.SaveAs App.Path & "\a.doc"doc.CloseEnd Sub
6. vb把结果输入到文本框
vb把光标移到文本框中，只需要让这个文本框获取焦点就可以。获取焦点使用SetFocus函数。
SetFocus 功能：对指定的窗口设置键盘焦点函数原型：HWND SetFocus（HWND hWnd）。参数：hWnd接收键盘输入的窗口指针。若该参数为NULL，则击键被忽略。例子：当text1中输入的数字超过6个的时候，焦点自动转移到text2文本框Private Sub Text1_Change() If Len(Text1.Text) > 6 Then Text2.SetFocusEnd Sub
- 相关评论
- 我要评论
-
