vb求助,添加两个vb.net inputboxx

温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!&&|&&
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
阅读(1056)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
loftPermalink:'',
id:'fks_095068',
blogTitle:'VB中的输入-INPUTBOX函数',
blogAbstract:'输入输出是应用程序的重要组成部分。通过输入工具(InputBox),用户可以向应用程序提供必要的数据使其按用户的要求执行;Visual Basic 为输入数据一个函数,即InputBox,下面介绍它的功能和使用方法。InputBox函数InputBox函数可产生一个对话框,作为输入数据界面,等待用户输入数据,并返回所输入的内容。其格式为:\r\nInputBox[](prompt[,title][,default][,xpos,ypos][,helpfile,context])该函数的参数含义如下:',
blogTag:'',
blogUrl:'blog/static/',
isPublished:1,
istop:false,
modifyTime:0,
publishTime:9,
permalink:'blog/static/',
commentCount:0,
mainCommentCount:0,
recommendCount:0,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:false,
hostIntro:'',
hmcon:'1',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人:
{list a as x}
{if !!b&&b.length>0}
他们还推荐了:
{list b as y}
转载记录:
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}作业:
随机产生20个10~99之间的整数,要求:
1)
用冒泡法排序(降序)
2)
用InputBox( )输入一整数X,插入到20个随机数中,插入后保持有序。
3)
用InputBox( )函数输入一整数X,采用折半查找法在20个随机数中进行查找!找到了显示其位置,否则给出没有找到的信息。
Function F(ByVal A As String) As Boolean
Dim B As String
按一定格式输入,然后用split函数截取出来分开。 Private Sub Command1_Click() On Error Resume Next Dim ...
VB好久没有接触了,都忘了,这是我在其他地方找的,你试试看
1、冒泡法排序后输出最大值和最小值
num=val(inputbox ("输入要求...
大家还关注
确定举报此问题
举报原因(必选):
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告,这不是个问题
报告原因(必选):
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区查看: 2297|回复: 8
VB.NET 里怎么正确调用EXCEL.application.inputbox
阅读权限20
在线时间 小时
在VBA里我直接用 application.inputbox 就能调用输入框,并能选择单元格区域
在VSTO里我是这样写的
dim app as excel.application
app = new excel.application
app.inputbox(&test&)
虽然输入框出现了,但是不能选择单元格区域,不知道怎么回事,还望有经验的人指教。
阅读权限50
在线时间 小时
等下测试 初步判断为 你是新建的一个EXCEL.APPLICATION实例
可以查看系统进程是否是两个EXCEL.EXE进程 如果是的话就是这个原因
不同的进程之间通信不是这样的
解决方法是不需要使用NEW 关键字新建一个实例
而是直接用app变量指向已经运行的Excel的实例
这样就在同一个进程里面了
而且你选择单元格那样的形式还缺少一个类型参数
阅读权限20
在线时间 小时
doryan 发表于
等下测试 初步判断为 你是新建的一个EXCEL.APPLICATION实例
可以查看系统进程是否是两个EXCEL.EXE进程 如果 ...
我看了下资源管理器,果然有很多进程,小弟刚刚接触VSTO。还望指教如何指向已经运行的EXCEL,还有少了什么参数。VB.NET刚接触,很多东西还没有概念。
阅读权限50
在线时间 小时
啊哦 无法测试 因为个人原因 (我使用的是VS2010+OFFICE2013)
所以无法创建文档级的VSTO
只能做个项目级别的外接程序了
Globals.ThisAddIn.Application.InputBox(&&, Type:=8) 项目级别的外接程序就是这样调用的&&
阅读权限50
在线时间 小时
dddance 发表于
我看了下资源管理器,果然有很多进程,小弟刚刚接触VSTO。还望指教如何指向已经运行的EXCEL,还有少了什么 ...
不是说很多进程 本来就会有几十个进程的
因为你电脑上还同时运行很多程序
但是名为EXCEL.EXE的进程应该只有一个哈
还有就是在VSTO发问 不仅要说明你的问题
还要说明是在做什么的时候发生的问题
在做外接程序 程序级的项目 文档级的项目 可能解决方式不同哈
文档级的项目 会直接给你一个object类的 sender参数 这个参数就是宿主 EXCEL.APPLICATION
不过你使用之前需要显式的转换一下
程序级的项目 dim app as&&Excel.application
app=Globals.ThisAddIn.Application
app.inputbox(&&,type:=8)
大家不一样的 但是思想是一样的 就是先获得宿主程序 这样操作才在同一个进程下 而不是new 一个实例 这样是另一个进程了
阅读权限20
在线时间 小时
doryan 发表于
不是说很多进程 本来就会有几十个进程的
因为你电脑上还同时运行很多程序
但是名为EXCEL.EXE的进程应该 ...
谢谢详细的指导,我做得是外接程序,用的是VS2010+OFFICE2007,现在可以了,非常感谢。以后估计少不了麻烦你。
阅读权限90
在线时间 小时
vsto中本来就有INPUTBOX,为什么要这样调用呢?
阅读权限50
在线时间 小时
mjzxlmg 发表于
vsto中本来就有INPUTBOX,为什么要这样调用呢?
Excel自带的纯天然 Type参数可以防止很多误操作
阅读权限20
在线时间 小时
你好, 你这个问题解决了吗? 我也很想知道怎么操作。 excel自带的input可以直接鼠标点击单元格取值,这个很方便
最新热点 /1
当当网书香节,ExcelHome图书满200-100,满400-200……,活动即日起至4月23日,莫失良机!
玩命加载中,请稍候
玩命加载中,请稍候
Powered by
本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任! & & 本站特聘法律顾问:徐怀玉律师 李志群律师

我要回帖

更多关于 vb.net inputbox 的文章

 

随机推荐