写惯了VC代码，偶尔看看VB代码也是件好事，VB加密其实很多，这是其中一种，希望对你有所帮助。 1、新建一个窗体，创建一个文本框和命令按钮，加入下面代码：Option ExplicitPrivate Sub Command1_Click()Dim c1 As New Class1MsgBox c1.DigestStrToHexStr(Text1.Text)End Sub2、添加一个类模块，加入下面

问题描述： 在用非.NET客户端调用WebService中，按照使用Soap Toolkit中的指导实现起来很简单，但在实际使用过程中却发现一个问题。 假如Webservice提供的方法是：int SimpleMath.Add(int n1,int n2)，返回值是n1+n2, 但按照soap toolkit提供的例子，使用VC进行调用，得到的返回值却是0。 记录下我的解决过程，备忘。

   去年写了半年多的vb6.0还穿插着有一些excel的二次开发现在这两天又写了段vb6.0的代码发现自己去年真的其实啥也不会..    vb6.0的功能是那么的强大我只是用了个if else 哎...呵呵    今天发现vb6.0的向导项目真的蛮好的,像产品做示例代码时最好考虑用这个...这样及时end user编程知识不是很好依然能高效的编写代码实现功能！

VB6.0限制键盘输入 1、只能输入数字 Private Sub TxtId_KeyPress(KeyAscii As Integer)   If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then     KeyAscii = 0   End If End Sub 2、限制 ' If KeyAscii = 39 Then KeyAscii = 0 End If

$%@#%$^^@$$&$%^     用VB6.0编写自己的MP3播放器   　#%^#%$@$$$$mp3播放器大家用得应该不少，不过，您是否厌倦了播放器的老面孔，是否尝试编写一个自己的MP3播放器呢？什么，太复杂!你会VB吗？会就得了！ 首先，得了解一下我从朋友处得来的一个ActiveX控件——Mp3Play.ocx。所谓ActiveX控件就是高手早已编好的专门化功能软件部件。以前在16位V

  先来看一下效果图： 下面就说一下具体的分析： 首先分析它的显示原理， 一、先把每一个数字都看成是一个8字的一部分，这里说的8是这个，把整个电子时钟分成八份，其中有六个。可以很容易的看出来这个8是有七根线构成的。 二、每次都是判断现在的时间，然后再根据相应的时间画出相应的线段。   再来说下整个程序的设计。 一、界面；    界面就是用来一个图片框作为背景（可以用窗体）。没有别的。 二、实现；

vb6.0似乎不支持韩文。 今天上午找了一上午，找到控件richtextbox，终于解决了韩文的输入问题。 但是写进去的韩文，读出来的richtextbox.text都是"？"，写进去sql的也是"？"。 如果手动在数据库里添加韩文，读出来的也是"？"。 真不知道有没有解决的好办法！

VB6.0和VB.Net的函数对照表 VB6.0 VB.NET AddItem Object名.AddItem Object名.Items.Add ListBox1.Items.Add ComboBox1.Items.Add Abs 函数 System.Math.Abs 方法 API 函数关系 Microsoft Win32和Microsoft .NET Framework API的对应 App.

功能：读取CSV文件的内容并导入到数据库中 环境：Access2003    语言：VBA（对于使用VB6.0同样适用） 数据库：D:\db1.mdb 数据表：test userId 数值型 userName 文本型 CSV文件：D:\test.csv （使用Excel打开） 编号 姓名 123 王五 456 李"“四 789 张'三 注意，在实际处理CSV文件前，程序开发者必须了解CSV文件的真

前言: 近两周被分到一个GIS项目组,本来以为可以好好接触下GIS项目的开发,但是没想到竟然碰到个恶心的需求,要将其中一个属性页面抽取出来,使用VB做成一个可视化的ocx插件,应用到系统中. 悲哀的项目,杯具的客户需求,我可悲命运.   首先声明,本人一没做过vb的项目,二无任何关于注册ocx的经验,三无C#桌面应用开发的经验. 基本上从零开始,但是得到了身边几位同事的指导,基本上把这一连串的内容

        机房收费系统中，单击MDI父窗体上的菜单A，令子窗体frmA最大化出现，然后在单击MDI父窗体上的菜单B，令子窗体frmB最大化出现。此时frmB可以出现，但现在想再单击菜单A令frmA再次出现，则不能了，原因是被frmB挡住了。解决方法是将不想出现的窗体close掉。一个简便的方法是遍历一下子窗体，令不是要打开的窗体关闭。       在vb6.0中遍历所有窗体用的是forms窗

在公司做ERP系统开发时，由于客户端数量大多，软件经常需要修改，每次都去手动更新客户端太麻烦，为了不再去手工做这么烦锁的事情，客户端就可以自动更新程序为最新版本，同时还要通过系统防毒软件和防火墙。。。 需求分析： 1.客户端每次运行系统时有新版本需要更新,要提示更新 2.有多个DLL，OCX，EXE文件需要更新，需要打包 3.要跟据要求安装到指定目录并注册 程序设计方法： 1. 首先，需要安排一台

制作思路： 　　编写一个截图控件，通过javascript在网页中调用这个控件，完成截图后，将保存在本地的截图的本地地址传给Ewebeditor,再调用ewebeditor的本地上传功能，实现自动上传。 一、截图控件的开发 Activex Dll   本控件是选用从CSDN下载的“VB模拟QQ截屏”修改而来的 以下是开发步骤： 第一步，新建一个ActiveX dll 工程 名为 "WebCaptu

VB6.0和VB.Net的对照表 VB6.0 VB.NET AddItem Object名.AddItem Object名.Items.Add ListBox1.Items.Add ComboBox1.Items.Add Abs 函数 System.Math.Abs 方法 API 函数关系 Microsoft Win32和Microsoft .NET Framework API的对应 App.Pa

Option Explicit Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = Asc("A") Then '按下A键 Call sub_xxxx1 ElseIf KeyCode = Asc("B") Then '按下B键 Call sub_xxxx2 End If End Sub Privat

Private Type GUID     Data1 As Long     Data2 As Integer     Data3 As Integer     Data4(0 To 7) As Byte End Type Private Type GdiplusStartupInput     GdiplusVersion As Long     DebugEventCallback As L

我在做这个OC X时遇到的问题给大家共享一下， 首先共同的我就不说了， l转载http://support.microsoft.com/kb/182598 下面的步骤说明如何创建一个简单的 Visual Basic 控件并将其标记为可安全执行脚本和 $ 初始化。 创建一个新的文件夹，您可以在其中保存创建此示例中的所有文件。 从 Visual Basic 6.0 CD-ROM 中获取 OLE 自动化

移动没有标题栏的窗口  我们一般是用鼠标按住窗口的标题栏，然后移动窗口，当窗口没有标题栏时，我们可以用下面的方法来移动窗口： 　 在 BAS 文件中声明： Declare Function ReleaseCapture Lib "user32" () As Long Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (

让窗口一直在上面  很多流行软件都有这样一个选项：Always on Top。它可以让窗口在最上面，别的窗口不能覆盖它。我们在 VB 中，可以使用下面的方法来实现： Private Const SWP_NOSIZE = &H1 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOZORDER = &H4 Private Const SWP_NORE

用Visual Basic设计更好的用户界面  有时在一个窗口中出现较多的控制件时，如果能向导式地建议用户下一步该做什么，不失为上策。 在Visual Basic的程序设计中，我们可以使用语句：Object.SetFaocus使我们希望的控件得到输入焦点，举个例子：在Form1中我们加入一个按钮Command1和一个文本输入Text1，双击按钮控件，然后键入如下代码： Text1.SetFocus