请教一下:我用vb写了一个调用Illustrator的测试程序,代码很简单:Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer
Dim documentcount As Long
Dim sampletext As Illustrator.TextFrame
Dim samplepic As Illustrator.G ......
设计一个鼠标画图程序,界面设计,窗体中添加一个picturebox控件,一个combobox组合下拉框、一个通用对话框与两个命令框,以下是我的程序,但是我运行的时候总是提示变量未定义,还望各位大侠帮忙指正哪里出了问题
Option Explicit
Dim x0 As Integer, y0 As Integer
Private Sub Combo1_Click()
Pictu ......
保存出的Excel数据文件,想在程序中就转化成数值类型
能够在打开Excel文件后,
能够直接利用数据画图,而不需要再次转化数据类型
程序中的数据是存放在二维数组里的,然后再保存在Excel中
请教大侠们,该怎么一步到位~!
写到csv文件里面吧
不行,要求保存的格式就是xls,帮忙想想办法吧
Excel的Range对 ......
我在窗体正常运行的情况下 标题栏上可以动态显示数值
可是点击最小化按钮的后 ,在任务栏上的标题上就不变了?
怎么办
别折腾这些花架子,没意义
不会吧?
VB code:
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Static i As Integer
i = ......
Open App.Path & "\tu\hb.bmp" For Binary As #100
用open语句打开文件,我想用if语句判断这个文件是否打开,就是说如果没打开,就打开,请问各位朋友怎么写?
是否打开是指是否已经用画笔打开了么?还是别的软件打开了?
如果是画笔,可以用Findwindow函数判断有没有打开
为-1有两种情况,可以通过API函数G ......
我知道在VB中调用系统的计算器 可以用shell
可是要是要求高点 调用后 直接计算 并把计算结果显示在文本框里
比如 在点击按钮1 调用计算器 把指定的二进制转换为16进制 并显示在 text1
自已做一个计算器~~~
计算器可以复制粘贴的。。。
sendkeys
不用调系统的计算器,参考自已做的 VB写的进制转换 ......