在VB环境中操作三维模型的实现方法

2016年07月27日 87 阅读

在VB环境中操作三维模型的实现方法2009-10-06 计算机与信息技术 月夜寒箫目前在虚拟设计和数控仿真程序的设计中，多采用VC和三维造型核心来实现对三维模型的显示和动态操作。由于VC较难掌握，涉及到图形渲染和操作的部分更是如此，而且三维造型核心一般需要从国外购买，对于一般的开发应用来说因成本太高而缺乏可行性。而VB作为一种完全面向对象的开发工具，在界面设计和数据库方面具有相当的优势，一般的设计人员也能够学习掌握，但是，在图形设计尤其是三维模型的显示和操...

ArcGIS网络分析最短路径分析源代码（VB6.0）

2016年07月27日 87 阅读

ArcGIS网络分析最短路径分析源代码（VB6.0）2009-10-06 cnblog 3echo12" Copyright 1995-2005 ESRI34" All rights reserved under the copyright laws of the United States.56" You may freely redistribute and use this sample code, with or without modificat...

用VB编写Hanoi塔问题动态演示程序

2016年07月27日 93 阅读

用VB编写Hanoi塔问题动态演示程序2009-10-06 comprg.com.cn 徐晓琴 徐勇1 引言在计算机算法设计中，使用递归技术往往使函数的定义和算法的描述简捷且易于理解。有些数据结构如二叉树等由于其本身固有的递归特性，特别适合用递归的形式来描述。还有一些问题，虽然其本身并没有明显的递归结构，但用递归技术来求解使设计出的算法简洁、易懂。因此深入掌握递归技术在算法设计过程中可以设计出更加有效的算法[1]。简单地说，递归就是用自己定义自己。使用递归...

取得Disk Volume Information

2016年07月27日 130 阅读

取得Disk Volume Information2009-10-06Private Declare Function GetVolumeInformation Lib "kernel32" _ Alias "GetVolumeInformationA" （ByVal lpRootPathName As String, _ ByVal lpVolumeNameBuffer As String, ByVal nVo...

限制Form Resize的最大值

2016年07月27日 92 阅读

限制Form Resize的最大值2009-10-06当Form的Position更动或大小改变时，会Send WM_GETMINMAXINFO的讯息，当我们取得这个讯息时，可以更动该讯息内定Windows Resize的值，不过本人目前只有测出如何限定其最大的Size，而最小的Size目前没有测出来，知道可者告诉我Option Explicit"以下程式在module1.basDeclare Function SetWindowLong Lib &quo...

用VB学做“黑客”程序

2016年07月27日 94 阅读

用VB学做“黑客”程序2010-01-02只要掌握了原理，你也能写出一个所谓的“黑客”程序。下面笔者带领大家用VB亲自编写一个远程控制程序。从而揭开它的神秘面纱。一、所用控件在程序中将使用Winsock控件。Winsock控件是一个ActiveX控件，使用TCP协议或UDP协议连接到远程计算机上并与之交换数据。和定时器控件一样，Winsock控件在运行时是不可见的。Winsock的工作原理是：客户端向服务器端发出连接请求，服务器端则...

用vb创建ActiveX

2016年07月27日 95 阅读

用vb创建ActiveX2010-01-02简 介Edition使创建ActiveX？控键如同创建一般的VB应用程序那样容易。读完本文，你就会看到是怎样的容易。本文概述了用VISUALBASIC创建ActiveX控键的简单过程。如果你对VISUALBASIC的各个版本已经很熟悉，那么在10分钟内你就能创建你的第一个ActiveX控键。下面的步骤将引导你完成创建一个通常叫作"微调控制项" 控键的过程。微调控制项控键是一个图形化的Activ...

用VB制作家庭影集

2016年07月27日 95 阅读

用VB制作家庭影集2010-01-02冯雪榆你想拥有自己的电子家庭影集吗？其实用VB就能实现。方法如下：准备：家庭普通照片经扫描后储存。构想：照片一张接一张出现在屏幕中间，出现时的方式采取动态切换，上方一行标题从左向右移过， 标题与照片的背景色随机变化。关键：调用Bitblt Windows API函数实现照片的动态切换。内容：工程由Forml和modluel构成。FORML中的内容如下：Comst bmpfilemax=11 照片数目常量Const bm...

用VB创建B/S程序

2016年07月27日 92 阅读

用VB创建B/S程序2010-01-02随着Windows 95中文版和Windows NT Server 4.0中文版的流行， Microsoft公司推出了相应平台上 的开发软件: Visual Basic 5.0 中文企业 版。它为Windows环境下的网络开发提供了强大的工具， Winsock控件就是其中之一。Winsock控件建立在TCP、UDP协议的基础上，完成与远程计算机的通 信。即使对TCP/IP不太熟悉的用户，使用该控件也可以在十几分钟内创...

用VB建立捷径（ShortCut）

2016年07月27日 96 阅读

用VB建立捷径（ShortCut）2010-01-02王国荣原本这应是用OLE的方式来做，但可用以下的方式来做，前题是有vb所提供的vb5stkit.dll所以令人 不太愉快Private Declare Function fCreateShellLink Lib "vb5stkit.dll" _（ByVal Forder As String, ByVal ShortCutName As String, _ByVal ExePath A...

读取Windows工作列的大小及位置

2016年07月27日 100 阅读

读取Windows工作列的大小及位置2010-01-02此一问题需呼叫 SHAppBarMessage API 函数，细节如下：1. API 的宣告：Const ABM_GETTASKBARPOS = &H5Private Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePrivate Type APPBARDATA cbSize As Long hWnd...

实现VB中打开图像文件时的预览功能

2016年07月27日 95 阅读

实现VB中打开图像文件时的预览功能2010-01-02wjxcn前一阵有人在VB专家门诊中提出一个问题，如何在VB中实现打开图像文件的预览，虽然给出了300分 的高分，回答着却寥寥无几。我在参照了DELPHI的源代码后在VB中实现了其部分图像预览功能，在中文 WINDOWS98 SE下测试通过。从MSDN中可以知道调用文件打开通用对话框需调用API 函数GetOpenFileName，原形如下：BOOL GetOpenFileName（ LPOPENFIL...

实现窗体的自动隐藏显示功能

2016年07月27日 103 阅读

实现窗体的自动隐藏显示功能2010-01-02现在许多程序的窗体都有自动隐藏/显示的功能（比如OICQ）。 实现这样的功能其实很简单，原理是：判断鼠标是否移到了屏幕的最左边或最右边，如果移到了则显示窗体，如果鼠标移开了窗体则隐藏窗体。在本程序中，我们将用到GetCursorPos这个API函数是实现这个功能最重要的一步，这个函数的作用就是获取当前鼠标的坐标值，我们可以通过这个值来判断鼠标是否移到了屏幕的最边缘.下面我们就开始吧。新建一窗体，将Form1更...

一个用VB编写的监控别人上网的软件例子

2016年07月27日 90 阅读

一个用VB编写的监控别人上网的软件例子2010-01-02一、程序核心本程序的核心是通过API函数获得窗口句柄并获得浏览器访问的网址，在此基础上可以实现用Winsock控件进行远程的监视和管理。1.先创建一个工程并在窗口Form1中，并声明下面的四个API函数和两个常量：Option Explicit Private Declare Function FindWindow Lib ″user32″ Alias ″Find...

实现在TextBox中得知Caret所在位置

2016年07月27日 101 阅读

实现在TextBox中得知Caret所在位置2010-01-02"在form中放一个textBox两个labelConst EM_GETSEL = &HB0Const EM_LINEFROMCHAR = &HC9Const EM_LINEINDEX = &HBBPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA&qu...

如何直接开启一个文件

2016年07月27日 90 阅读

如何直接开启一个文件2010-01-02Shell是用来执行外部的可执行文件如果是一个文件，那要用ShellExecute来启动预设的程式来开启文件"HINSTANCE ShellExecute（" HWND hwnd, // handle to parent window" LPCTSTR lpOperation, // pointer to string that specifies operation to perform" LPCTST...

在VB中制作不回显的文本框

2016年07月27日 91 阅读

在VB中制作不回显的文本框2010-01-02李碧颖、杨洪斌在应用程序中,有时需要用户录入一些不宜在屏幕上直接显示的内容,如用户口令或机密数据。我们已熟知,在Foxbase/Foxpro中这一功能可以用SETCONSOLEOFF命令关闭向屏幕的回显来实现。那么,在 VisualBasicforWin-dows中如何做到这一点呢？一个容易想到的方法是利用文本框的Key-Press事件,但为了处理用户对文字的编辑（如删除、插入） ,则还要再用其它变量存放真正输...

有BitMap之Menu

2016年07月27日 107 阅读

有BitMap之Menu2010-01-02在Window API中，有一些名词要先清楚，假设有一功能表如下：档案 编辑 选项 --> hMenu （功能表）+-------+|复制 |---------> hSubMenu （子功能表）|贴上 ||减下 -------------> MenuID （功能表项目）| |+-------+如果，我们使用vb的功能表编辑器做出上面的Menu，那 hMenu的取得使用GetMen...

在RTF TEXT中使用色彩

2016年07月27日 120 阅读

在RTF TEXT中使用色彩2010-01-02*** Add VB code in a RTF control Call InitColorize CallColorizeWords（rtfVBCode）*** Now your VB code in your RTF control is colorized Source Code: #VBIDEUtils#**********************************************...

在VFP、VB应用程序中激活鼠标功能

2016年07月27日 116 阅读

在VFP、VB应用程序中激活鼠标功能2010-01-02蔡可训鼠标是WINDOWS环境下不可缺少的输入工具,在应用程序中灵活地使用鼠标功能,会给工作带来极大的 方便.VISUAL FOXPRO6.0和VISUAL BASIC6.0是MICROSOFT VISUAL STUDIO98面向对象的可视化开发环境, 它功能非常强大,而且设计程序简单实用.它提供了与鼠标操作有关的事件和API函数,所以编写鼠标功能 程序就变得非常简单,只需在程序中调用这些事件和API...