· Public Class Form1Inherits System.Windows.Forms.Form#Region " Windows 窗体设计器生成的代码 "Public Sub New()MyBase.New()'该调用是 Windows 窗体设计器所必需的。InitializeComponent()'在 InitializeComponent() 调用之后添加任何初始化End Sub'窗体重写 dispose 以清理组件列表...
· Imports System.IO
Imports System.Net
Imports System.Net.Sockets
……Private Function Connect(ByVal strServer As String, ByVal strUser As String, ByVal strPwd As String) As NetworkStreamDim Sender As New TcpClient(strServer, 110)Dim OutBytes As Byte()Dim input As StringDim Ns ...
· 前面讲到了二次线性插值的应用。
这一篇来给大家讲一下关于锐化、柔化、扩散、雕刻这几个滤镜的实现。一,锐化锐化的算法很简单,就是比较相邻的几个像素,把当前像素加上和周围的像素的差就可以了。
这里我给出一个示例:
A B C D
E F G H
I J K L
M N O P
假设有一个图片,4*4,共16个像 ...
· Imports ADOXModule Module1Public Function CreateAccessDB(ByVal NewDBPathName As String) As IntegerDim i As Integer = 1Dim cat As Catalog = New Catalog()Trycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & _"Data Source=" & NewDBPathName & _"...
· C#中使用Oracle 存储过程笔记1. 调用包含out/ in out类型参数的存储过程存储过程:CREATE OR REPLACE PROCEDURE "SITE_EDITSITEDATAEXIST" (id_ number,name_ varchar2,httpRoot_ varchar2,flag out integer )//out 只具备输出功能 in out 为输入/输出型astempNum integer;begi...
· '########数据库访问层##########'返回一个ADOCN连接对象'与C#不同,这里不能关闭连接及释放内存
Public Function GetCN(sDBPath As String) As ADODB.ConnectionConst sPro As String = "provider=microsoft.jet.oledb.4.0;data source="Const sDBPWD As String = ";jet oledb:dat...
· Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfile...