vb文档中心

今天公司要求用C#写个验证码组件，让asp可以调用，在网上找了一堆资料，终于给我给搞出来了，因为本人第一次写组件，也是第一次发表文章，所有可能说的不是很好，大家请见谅。
csdn上有这么篇文章，想学习写组件的可以去看看：http://blog.csdn.net/KimmKing/archive/2008/12/04/3445233.aspx，因为本人就是仿照这个写的验证码组件，因为怕上面的文章丢失，我就在这里简单说下创建的过程：
1、创建一类库
2、实现一个类（具体代码下面详写）
3、给文件签名
方法：选择开始菜单中Vistual Studio目录下的Vistual Studio Tools下的Vistual Studio 命令提示。使用sn -k c:\myKey.snk生成签名文件。在项目上右键，点击属性，选择签名，选中为程序集签名，选择myKey.snk文件。

4、生成解决方案
在项目目录的\TestCom\bin\Debug中可以找到TestCom.dll
5、生成tlb类库
在Visual Studio命令提示符下，切换到此目录。
输入tlbexp TestCom.dll /out:TestCom.tlb
6、注册类型库
输入regasm TestCom.dll /tlb: TestCom.tlb /codebase，将类型库导入到注册表。提示成功注册了类型，说明操作成功， ......

Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
End If
End Sub
http://topic.csdn.net/t/20030524/18/1829023.html
http://zhidao.baidu.com/question/93411647.html?fr=qrl&cid=867&index=5&fr2=query
我想把form5移动到form3中picture1的位置，下面是我的代码（在form3的code中）：
Dim r2 As RECT
GetWindowRect Picture1.hwnd, r2
Form5.ScaleMode = vbPixels '设置坐标单位为像素
Form5.Move r2.Left, r2.Top
Form5.Show
为什么移动的坐标仍然是默认的缇而不是屏幕像素呢？
请指教！
问题补充：
要实现窗口的正确移动，应该怎么做？
将form5的左上角 ......

引自：http://blog.csdn.net/yizia/archive/2006/09/19/1248669.aspx
访问远程数据库的情况有以下几种：
1）访问远程数据库的access数据库
2）访问远程mssql数据库或oracle等其他关系数据库，但是数据库通信端口被防火墙阻挡或其他网络原因造成无法使用该端口
本文仅在windows2000 advance server,mdac2.8下测试通过，其余条件不保证能正常运行
在mdac的Service Providers中包括Microsoft OLE DB Persistence Provider，Microsoft OLE DB Remoting Provider，等等，就不详细说了
，我们今天要用到的是Microsoft OLE DB Remoting Provider。
看一下MS Remote的范例：
MS Remote - Access (Jet)
　　i)ODBC DSN:
　　　　oConn.Open "Remote Server=http://<ServerName>;" & _ //服务器域名或ip，如果在局域网就是服务器名字
　　　　　　"Remote Provider=MSDASQL;" & _
　　　　　　"DSN=AdvWorks;" & _ //注意，这里的odbc是指服务器端的
　　 ......

访问远程数据库的情况有以下几种：
1）访问远程数据库的access数据库
2）访问远程mssql数据库或oracle等其他关系数据库，但是数据库通信端口被防火墙阻挡或其他网络原因造成无法使用该端口
本文仅在windows2000 advance server,mdac2.8下测试通过，其余条件不保证能正常运行
在mdac的Service Providers中包括Microsoft OLE DB Persistence Provider，Microsoft OLE DB Remoting Provider，等等，就不详细说了
，我们今天要用到的是Microsoft OLE DB Remoting Provider。
看一下MS Remote的范例：
MS Remote - Access (Jet)
　　i)ODBC DSN:
　　　　oConn.Open "Remote Server=http://<ServerName>;" & _ //服务器域名或ip，如果在局域网就是服务器名字
　　　　　　"Remote Provider=MSDASQL;" & _
　　　　　　"DSN=AdvWorks;" & _ //注意，这里的odbc是指服务器端的
　　　　　　"Uid=admin" & _& ......

Option Explicit
Private Sub Form_Load()
'工程->引用->选中Microsoft ActiveX Data Objects 2.8 Library
Dim shujukulianjie As New ADODB.Connection
Dim jiluji As New ADODB.Recordset
'连接数据库的代码段
shujukulianjie.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\database\shujuku.mdb"
'自己改动一下上面的路径和文件名即可，其他的代码你不理解照粘贴无妨
'对xingmingbiao表进行查询操作
jiluji.Open "Select * from xingmingbiao", shujukulianjie
End Sub
==========================
http://www.bianceng.cn/Programming/vb/200812/11121.htm
http://zhidao.baidu.com/question/76929489.html?fr=qrl&cid=1073&index=2
http://topic.csdn.net/t/20060821/17/4965200.html ......

Private Type SECURITY_ATTRIBUTES
   nLength As Long
   lpSecurityDescriptor As Long
   bInheritHandle As Boolean
End Type
Dim lang As String
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hkey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hkey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long
Private Dec ......

c# 验证码组件可vb，asp，net调用

c# 验证码组件可vb，asp，net调用

c# 验证码组件可vb，asp，net调用

VB实现全窗体移动

vb和asp如何用remote访问远程数据库

vb和asp如何用remote访问远程数据库

vb和asp如何用remote访问远程数据库

vb和asp如何用remote访问远程数据库

VB连接ACCESS数据库精简版

VB连接ACCESS数据库精简版

VB读取注册表