eimhee
- 浏览: 2153161 次
- 性别:
- 来自: 北京
-
最新评论
-
sunzeshan：
找了很久，用了这个插件解决问题啦。谢谢
eclipse jetty debug source not found -
xiaosong0112：
您好，请问为什么要这样设置呢，原理是什么？在网上很多转帖都没有 ...
maven的jetty插件提示No Transaction manager found导致启动慢的解决方法 -
eimhee：
tjzx 写道畅搜谷歌：http://dian168.cc/打 ...
Google 镜像站搜集 -
tjzx：
畅搜谷歌：http://dian168.cc/打开的是“最火源 ...
Google 镜像站搜集 -
eimhee：
finallygo 写道你这属于"头痛医头脚痛医脚& ...
解决linux下too many file问题
文章列表
EXCEL SHEET中如何添加下拉框或者 文本框,命令按钮?下面的方法就可以：添加命令按钮1 新建WORKSHEET2 打开Visiual Basic编辑器3 选择SHEET1 的Worksheet_SelectionChange 事件4 编写代码如下：Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim myobj As OLEObjectSet myobj = Sheet1.OLEObjects.Add(ClassType:="Forms.commandbutton.1", Link:=Fal ...
- 2005-11-07 00:39
- 浏览 2627
- 评论(0)
EXCEL 中,能否同调用内置函数一样在工作表中调用自已制作的自定义函数,出现对话框.同时也能做到像内置函数对话框里的说明?答案是肯定的,下面举例说明:题目: ①对文本型一系列数字进行求和(SUM()返回0) ②对数值型的一系列数字异或操作(EXCEL内置函数中没有XOR())1. EXCEL中在A,C两列依次输入1,2,3,4,5,A列设为数值型,C列设为文本型.2. 选择视图--->工具栏-->VISIUAL BASIC--->VISIUAL BASIC编辑器窗口---->插入--->模块,输入以下内容Function myxor(By ...
- 2005-10-20 01:40
- 浏览 2375
- 评论(0)
POWERPOINT 无TIMER 控件，也不支持 TIMER 事件。但如果想在播放POWERPOINT 时显示一个动态的时间,有没有可行的办法?笔者曾为此十分苦恼,四处求救，始终没有满意的答复（多数建议添加FLASH 格式的CLOCK），近日想起了延时函数SLEEP，一试竟然成功，问题终于得以解决，特此与广大CSDN朋友共享。代码如下Option ExplicitPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Sub main()ActivePresentation.SlideMa ...
- 2005-10-09 22:02
- 浏览 1550
- 评论(0)
获取 IE 当前 URL 的代码,网上有许多类似代码，但在WINDOWSXP 下不能运行。查了一些资料，发现由于Win2000，WINXP 是基于Unicode代码的操作系统，所以没有WorkerA类，而以WorkerW类取而代之（XXXXA should be used on not unicode compliant windows oses likes Windows 95,98 etc and on unicode enabled oses replace A with W. Remember WorkerA or WorkerW doesn't have something relat ...
- 2005-10-09 14:30
- 浏览 1249
- 评论(0)
sendkeys 的用法（MSDN）：
SendKeys 语句
- 2005-09-26 07:03
- 浏览 1205
- 评论(0)
预备知识:1. Shell 函数执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。语法Shell(pathname[,windowstyle])Shell 函数的语法含有下面这些命名参数：部分描述pathname必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。Windowstyle可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。window ...
- 2005-09-25 09:17
- 浏览 1587
- 评论(0)
Private Sub Form_Load()Dim i As IntegerWith Me.Move Screen.Width * 0.1, Screen.Height * 0.1, Screen.Width * 0.8, Screen.Height * 0.8.AutoRedraw = True.BackColor = vbRed.ForeColor = vbYellow.Caption = "五星红旗".Icon = LoadPicture("")For i = 0 To 4.CurrentX = Array(0.01, 0.25, 0.35, 0. ...
- 2005-09-21 01:18
- 浏览 885
- 评论(0)
代码如下:Private Sub Command1_Click()Dim i As Integer, title As String, FileNames As String With CommonDialog1 .FileName = "" .Filter = "All Files|*.*" '过滤器指定在对话框的文件列表框中显示的文件的类型 .Flags = &H200 '允许多重选择。 .Action = 1 i = InStrRev(.FileName, "\" ...
- 2005-08-30 22:56
- 浏览 1276
- 评论(0)
Dim mysort As IntegerPrivate Sub Form_Load()With MSHFlexGrid1.Cols = 4.Rows = 20 '20行4列For i = 0 To 79.TextArray(i) = IIf(i < 4, Chr(i + 65), Format(Int(100 * Rnd), "00"))'随机赋值NextEnd Withmysort = 7' 升序End SubPrivate Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As ...
- 2005-08-30 00:17
- 浏览 2180
- 评论(0)
Private Declare Function timeGetTime Lib "winmm.dll" () As LongDim STARTTIME As LongPrivate Sub Command1_Click()STARTTIME = timeGetTimeTimer1.Enabled = TrueEnd SubPrivate Sub Form_Load()Label1.Caption = mytime(0)Timer1.Interval = 1Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Label ...
- 2005-08-29 23:45
- 浏览 985
- 评论(0)
好久没来这里了。最近看了一些数论方面的文章，受益匪浅。想到我们初学VB时，利用循环查找素数是必修之课，随手写了两段列举素数的代码，并详细注释。自己感觉还是比较快的。 代码如下： '*******************************************************************************' Target:to get all prime numbers smaller than a certain number ' Author：northwolves ...
- 2005-04-18 01:12
- 浏览 750
- 评论(0)
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String ...
- 2004-10-24 23:54
- 浏览 1184
- 评论(0)
利用API 引用vb6a.dll (Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long)可以实现字符串命令的执行和字符串表达式的运算(http://blog.csdn.net/northwolves/archive/2004/04/05/19592.aspx),但由于VB6a.dll只能应用于 ...
- 2004-10-20 22:59
- 浏览 2120
- 评论(0)
Private Sub Command1_Click()Devide 123456789, 987654321, 2000End Sub
Sub Devide(ByVal X As Long, ByVal Y As Long, Optional ByVal Numdigitsafterdecimal As Integer = 100, Optional ByRef result As String) 'x/y取小数点后Numdigitsafterdecimal 位（默认100)Dim a() As String, temp As Double, temp2 As Long, i As Integ ...
- 2004-09-16 21:25
- 浏览 2530
- 评论(0)
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As LongPri ...
- 2004-09-16 19:30
- 浏览 871
- 评论(0)