博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理
上一页 1 ··· 11 12 13 14 15

2009年4月23日

摘要: Project1.vbpType=ExeForm=Form1.frmReference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\WINDOWS\system32\stdole2.tlb#OLE AutomationModule=Module1; Module1.basIconForm="Form1"Startup="Form1"HelpFile=""Title="ScreenTest"ExeName32="ScreenTest.exe"Command32=""Name="ScreenTest"HelpContext 阅读全文

posted @ 2009-04-23 18:08 随风飘零0 阅读(202) 评论(0) 推荐(0) 编辑

2009年4月20日

摘要: Attribute VB_Name = "modIni"Option ExplicitPrivate Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName A 阅读全文

posted @ 2009-04-20 22:23 随风飘零0 阅读(277) 评论(0) 推荐(0) 编辑

摘要: Attribute VB_Name = "modPub"Option ExplicitPublic strAppPath$Public intFontSize As IntegerPublic strFontColor As StringPublic lngFontColor As LongPublic strSplit As StringSub Main() strAppPath = App.Path If Right(strAppPath, 1) "\" Then strAppPath = strAppPath & "\" iniFileName = strAppPath & "us 阅读全文

posted @ 2009-04-20 21:41 随风飘零0 阅读(212) 评论(0) 推荐(0) 编辑

摘要: 下载地址:http://download.csdn.net/source/1228525说明:一般情况下,当我当前已有一个工程打开时再通过双击dsw文件打开个新工程时那么之前打开的那个工程会被覆盖,相信这个问题一定困惑了许多了,你可以通过这个工具彻底解决。使用方法:将其中的“vc6tool.exe”文件复制到磁盘的某一目录,然后随便找个dsw文件右击选择打开方式,然后点浏览找到刚才的“vc6tool.exe”文件,勾选设置使用该程序打开。 vb6实现的源代码:Option ExplicitSub Main() On Error GoTo err1 Shell "C:\Program Files 阅读全文

posted @ 2009-04-20 19:10 随风飘零0 阅读(271) 评论(0) 推荐(0) 编辑

2009年4月17日

摘要: Type=ExeForm=Form1.frmReference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE AutomationClass=JPWordDeal; clsJPWordDeal.clsObject={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCXModule=modIni; modIni.basModule=modPub; modPub.basIconForm="Form1"Startup= 阅读全文

posted @ 2009-04-17 20:29 随风飘零0 阅读(183) 评论(0) 推荐(0) 编辑

摘要: VERSION 5.00Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"Begin VB.Form Form1 Caption = "JPWordDeal" ClientHeight = 5925 ClientLeft = 60 ClientTop = 345 ClientWidth = 10500 Icon = "Form1.frx":0000 LinkTopic = "Form1" ScaleHeight = 5925 ScaleWidth = 10500 StartUpPosition = 2 阅读全文

posted @ 2009-04-17 20:28 随风飘零0 阅读(208) 评论(0) 推荐(0) 编辑

摘要: VERSION 1.0 CLASSBEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObjectENDAttribute VB_Name = "JPWordDeal"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = TrueAttribute VB 阅读全文

posted @ 2009-04-17 20:26 随风飘零0 阅读(138) 评论(0) 推荐(0) 编辑

2009年4月16日

摘要: http://www.excite.co.jp/world/chinese/http://dict.hjenglish.com/jphttp://webmail.aol.com/39997/affinity/en-us/Lite/MsgList.aspxhqan8p1k@ilike2helpothers.com啊bmw23aqmm3o87vn1uox4tt@bestcoolcars.com啊5r7kskieemyyefl1o8@ramsbringit.com啊ihka5avec6vjlyjmvthq77rw5@bestcoolcars.com啊3s7w485elso8kwbok@skins4l 阅读全文

posted @ 2009-04-16 18:07 随风飘零0 阅读(159) 评论(0) 推荐(0) 编辑

2008年7月16日

摘要: Code Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->Option Explicit Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination... 阅读全文

posted @ 2008-07-16 07:48 随风飘零0 阅读(306) 评论(0) 推荐(0) 编辑

摘要: Private Sub Command1_Click() Dim buf As String, msg As String, idx As Integer idx = 1 Do buf = Environ(idx) msg = msg & buf & vbCrLf idx = idx + 1 Loop Until ... 阅读全文

posted @ 2008-07-16 07:25 随风飘零0 阅读(273) 评论(0) 推荐(0) 编辑

上一页 1 ··· 11 12 13 14 15