04 2014 档案
摘要：在阅读之前同事写的源代码，发现格式非常混乱，不方便阅读和维护，所以打算这词代码编写之前，先定好编写规范，下面这篇文章是我看到比较全面比较详细的编码规范，感觉很不错，所以转过来了，再次，感谢原作者的分享。转自：http://www.cnitblog.com/qiuyangzh/archive/2005...
阅读全文
摘要：在我刚安装完XE5后的两天,XE6发布了，我想着反正是从零开始学习还不如从最新版开始，于是又安装了XE6目前还没有着手用C++ Buider开始写代码,原因是因为有些无从下手，首先英文不好，XE6软件是全英文界面，不太会用；其次是C++语言几乎全部还给老师了由于这此公司给的任务是串口通讯类的开发，所...
阅读全文
摘要：前言：我之所以要转这篇文章，是因为我一个比较要好的朋友时常为自己繁琐的工作头疼不已，时常担心自己学不到东西，借此文来看看为什么领导要给我们去做很多看似没有意义的事情————丽丽下文转自：http://www.likespc.cn/blog/my-assistant-resignation.html正...
阅读全文
摘要：1、引言Excel是我们最常用的办公软件之一，在日常工作中，我们经常需要将两个Excle表中的数据进行对比，但是因操作系统及office版本的问题，有时候同时打开了多个Excel，却只显示在一个主窗口中，不能同时独立显示在桌面，方便我们进行数据对比工作。2、处理过程针对这个问题的处理，需要修改注册表...
阅读全文
摘要：RAD Studio XE6之Tpanel属性Action指定与该控件关联的操作。Specifies the action associated with the control.Align AlignDisabled指示禁用的子控件重新调整。Indicates child control ...
阅读全文
摘要：这是设置程序窗体状态栏信息的一条语句： 其中： StatusBar1是状态栏控件的名称； Panels(3).Text表示状态栏上第3个空格所显示的文本内容，Panels（3）代表状态栏控件的第三个窗格； Format(Date, "\yyyy年mm月dd日\")这是调用格式函数Format，设置文...
阅读全文
摘要：(内容来自互联网)波特率“波特率”表示每秒种传输离散信号事件的个数，或每秒信号电平的变化次数，单位为band（波特）。即波特率所表示的是调制速度，是单位时间内传输线路上调制状态的变化数。即 Nb=1/Ts 式中：Nb——波特率； Ts——码元的电脉冲信号宽度。若传输的码元宽度为1μs ，则Nb=1 Mband。即每秒传送106码元电脉冲。所以速率高低与每个码元所占的时间有关。若每个码元的脉冲宽度越小，则传输速率越高。比特率 “比特率”是指每秒传送二进制数据的位数，单位为比特/秒，记作bits/s或b/s或bps或。比特率与波特率的关系为： R=Nb lbN(b/s)（1）式中：R——比特率；
阅读全文
摘要：Excel 2007使用的时候打开多个工作薄的时候，不像2003那样默认独立分开窗口显示。要切换工作簿，需要通过 “视图-切换窗口”来选择需要当前活动的窗口，这样的操作给同时操作多个工作薄来说，非常不方便。网上给出的方法有几种：1.有一种方法是选择“视图-全部重排”然后选择横排还是竖排，这样的话，多个窗口在一个工作区间里面，虽然这样好一些，但是依然不能满足我们的习惯，比如格式设置，焦点需要来回选定。想必么有解决此问题的人也是这么做的，等于是废话。2.打开左上角的office圆圈标志，“Excel选项”-“高级”-右侧往下翻找到“常规”-勾选“忽略使用动态数据交换（DDE）的其他程序（O）”-确
阅读全文
摘要：这是一篇老文了，整理下发出来，希望能对大家有些帮助一般我们在程序中操作Excel时，逐单元格填充时，速度非常之慢。其实Excel的Range可以直接绑定数组，速度极快。在下面的VB6示例中，填充一个1000*10的区块，逐单元格方式要20~25秒，而数组方式瞬间内即可完成。Private Sub Command2_Click() Dim a(1000, 10) As Integer Dim i As Integer Dim j As Integer Dim z As Integer Dim oXLSAPP As New Excel.Application D...
阅读全文
摘要：通知：以前推荐的那个vb和c#,java,c++等语言互转的共享软件的免费版最近有更新，能转200行以内的代码段和2000行以内的工程哦http://www.tangiblesoftwaresolutions.com/index.htm接录部分说明：What'sNewJanuary2014C#toJavaConverterandVBtoJavaConverternowoptionallyconverttoJava8lambdas.C++toJavaConverternowconvertsC++11lambdastoJava8lambdas.JavatoC#Converter,Javat
阅读全文
摘要：'从VB将数据导出到EXCEL,网上可能有很多这样的代码,但是前提都要安装EXCEL,今天我分享给大家的就是没有安装EXCEL的一样也可以导出.'Rem 作者:谢炎锦 创建时间:2002-12-20 Mail:XieYanJin@163.Com'Rem 内容如下:'Rem 引用方式: Export(Ado.Recordset) 或 Export(Rds.RecordSet)'Rem 支持 Rds 与 Ado 的记录导出'Rem 得到所有数据类型,有些数据类型EXCEL不支持,已经替换掉Public Function FieldType(intTy
阅读全文
摘要：''=============================================''名称: FindPath''作用: 查找指定文件夹下面的所有文件和其子目录下的文件''参数：strPath 要查找的目录，'' strFiles 用于存查找结果的缓冲区，String 类型的动态数组，调用时事先初始化， 如Redim strFiles(0)'' FileCount 用于返回文件个数''============================================
阅读全文
摘要：Option ExplicitDeclare Function SetWindowsHookEx Lib "user32" Alias _"SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, _ByVal hmod As Long, ByVal dwThreadId As Long) As LongDeclare Function UnhookWindowsHookEx Lib "user32" _(ByVal hHook As Long) As LongDecl
阅读全文
摘要：在网上看到一段程序,没有使用vba编程将sql数据倒入excel表格,速度极快,贴出于大家共赏.其主要思想是：将EXCEL作为一个数据库使用，它的名字就是数据库的名字，工作表就是一张数据库中的表。建立一个工程,引用dao,添加command1,粘贴一下代码'声明API函数Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long'
阅读全文
摘要：请看下例：>>步骤1----建立新工程,在窗体上放置一个CommandButton按钮.设置其Caption="打开">>步骤2----编写如下代码:Private Declare Function mciSendString Lib "winmm.dll" Alias _ "mciSendStringA" (ByVal lpstrCommand As String, ByVal _ lpstrReturnString As String, ByVal uReturnLength As Long, _ ByVa
阅读全文
摘要：Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal ProcessID As Long, ByVal ServiceFlags As Long) As LongPrivate Declare Function GetCurrentProcessId Lib "kernel32" () As Long'请你试试 Ctrl+Alt+Del 是不是你的程序隐藏了Private Sub Command1_Click()i = RegisterServiceProces
阅读全文
摘要：'--------------------------------------------------------------------------------'把下面放到模块中Option ExplicitPublic Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _(ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As LongPublic Declare Func
阅读全文
摘要：'引用控件 Microsoft SysInfo Control 6.0Dim OS As StringWith SysInfo1 Select Case .OSPlatform Case 0: OS = "Win32" Case 1: Select Case .OSVersion Case 4: OS = "Win 95" Case 4.1: OS = "Win 98" Case 4.9: OS = "Wim Me" End S...
阅读全文
摘要：通用对话框专辑（全）使用API调用Winodws各种通用对话框(CommonDiaglog)的方法（一）1.文件属性对话框Type SHELLEXECUTEINFOcbSize As LongfMask As Longhwnd As LonglpVerb As StringlpFile As StringlpParameters As StringlpDirectory As StringnShow As LonghInstApp As LonglpIDList As Long '可选参数lpClass As String '可选参数hkeyClass As Long '
阅读全文
摘要：条形码编程实例一、条形码的读取用过键盘口式的扫条码工具的朋友就知道，它就如同在鍵盘上按下数字鍵一样，基本不需任何编程和处理。但如果你使用的是其它接口的话，可能你就要为该设备编写通讯代码了。以下有一段简单的25针串口的条码读取器通讯代码。Option ExplicitDim sData As StringPrivate Sub Form_Load() With MSComm1 .CommPort = 3 '设为COM3，试运行的系统而定，你可提供一个Combox让用户选择。 .PortOpen = True '打开通讯端口 End WithEnd Sub Private Sub.
阅读全文
摘要：Option ExplicitPrivate Const DC_MAXEXTENT = 5Private Const DC_MINEXTENT = 4Private Const DC_PAPERNAMES = 16Private Const DC_PAPERS = 2Private Const DC_PAPERSIZE = 3Private Declare Function DeviceCapabilities Lib "winspool.drv" Alias "DeviceCapabilitiesA" (ByVal lpDeviceName As St
阅读全文
摘要：**********************winsock网络编程**********************二、在服务器端Server工程中也建立一个窗体，加载WinSock控件，称为tcpServer，协议选择TCP，设置其Index值为0，并在工程中添加模块。 内容如下：Private Type ActiveUser ClientIP As String ’记录客户的IP地址 ClientPort As Integer ’记录当前会话的端口 ClientID As Long ’记录客户的ID号码 ClientConnected As Boolean ’客户连接状态，True表示已连接，.
阅读全文
摘要：'vb中从域名得到IP及从IP得到域名 Private Const WS_VERSION_REQD = &H101Private Const WS_VERSION_MAJOR = WS_VERSION_REQD \ &H100 And &HFF&Private Const WS_VERSION_MINOR = WS_VERSION_REQD And &HFF&Private Const MIN_SOCKETS_REQD = 1Private Const SOCKET_ERROR = -1Private Const WSADescripti
阅读全文
摘要：Option ExplicitPrivate Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Declare Functio
阅读全文
摘要：VB6.0中快速实现大面积不规则区域的填充--------------------------------------------------------------------------------一、引言区域填充是指先将区域内的一个像素，一般称为种子点赋予给定的颜色和辉亮，然后将该颜色扩展到整个区域内的过程。二、已有的填充算法及缺点1．扫描线法扫描线法可以实现已知多边形域边界的填充，多边形域可以是凹的、凸的、还可以是带孔的。该填充方法是按扫描线的顺序，计算扫描线与待填充区域的相交区间，再用要求的颜色显示这些区间的像素，即完成填充工作。这里区间的端点通过计算扫描线与多边形边界线的交点获得。
阅读全文
摘要：Private Sub Command3_Click()Dim conn As New ADODB.Connectionconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.mdb;Persist Security Info=False"conn.Execute "create table a (b longbinary)"End SubPrivate Sub Command4_Click() Set b = New ADODB.Recordset Set c = New ADODB.S
阅读全文
摘要：Excel是一个非常优秀的报表制作软件，用VBA可以控制其生成优秀的报表，本文通过添加查询语句的方法，即用Excel中的获取外部数据的功能将数据很快地从一个查询语句中捕获到EXCEL中,比起往每个CELL里写数据的方法提高许多倍。将下文加入到一个模块中,屏幕中调用如下ExporToExcel("select*fromtable")则实现将其导出到EXCEL中Public Function ExporToExcel(strOpen As String)'*********************************************************&
阅读全文
摘要：还记得大学即将毕业那一会，那是我首次接触黑马训练营，兴奋的我好几天睡不着觉，可是一直到毕业了将近一年的都没有去黑马，总是各种各样的理由，有时候想是不是在大三之前结实黑马，现在已经从黑马毕业了，向往黑马，不仅仅指薪资的吸引，更是技术激情的吸引，每次去黑马论坛，看几篇黑马学子的文章，都让人激动很久，他...
阅读全文
摘要：Private Sub mnuothersave_Click()'显示另存为对话框 CommonDialog1.ShowSave'设置文件的类型 CommonDialog1.Filter = "所有文件|*.*|RTF|*.RTF| 文本文件|*.txt"'判断是否选择文件 If CommonDialog1.FileName "" Then'记录并复制文件路径，其中APP指定应用程序的标题、版本、可执行文件和帮助文件的路径及方法PATH属性用来返回和设置应用程序的当前路径。集体格式为 FileCopy App.Path &
阅读全文
浙公网安备 33010602011771号