原创 聊天 一對一 Socket
本例只適合初學用Socket編程的人，因而力求簡單，讓老鳥見笑了J 另本示例用的是vs2005 1、服務端 Imports System.Net Imports System.Net.Sockets Imports System.Thre
2020-06-16 08:24:56
原创 VB2005中的WebBrowser1打開新窗口的問題
先用NewWindow事件捕獲新窗口要打開的URL，然後把它設置爲自定義新窗口的URL，並打開自定義新窗口，接着取消用系統默認瀏覽器打開新窗口的動作。示例代碼： Private Sub WebBrowser1_NewWindow(B
2020-06-16 08:24:56
原创 ORACLE自動編號
SQL> select * from scott.admin; ID USERNAME PASSWORD---------- ---------- ---------- 1 admin adm
2020-06-16 08:24:56
1
原创 向 ListView 控件添加搜索功能
使用文本查找項 創建一個 ListView，View 屬性設置爲 Details 或 List，然後用項填充該 ListView。 調用 FindItemWithText 方法，向其傳遞要查找的項的文本。 下面的代碼示例演示如
2020-06-16 08:24:56
原创 ASP連接ORACLE代碼
<% '連接數據庫 dim conn dim connstr Set conn=Server.CreateObject("ADODB.Connection") connstr="Driver={Microsoft ODBC fo
2020-06-16 08:24:56
原创 asp使用mysql數據庫
準備要弄個查詢頁,數據庫是mysql,在網上搜索纔看到兩篇文章關於asp使用mysql數據庫,都是很久以前的了需要配置odbc,今天自己測試過,根本不需要,安裝mysql的時候它會自己在系統dsn添加了,而且數據庫連接語句也不需要寫說明d
2020-06-16 08:24:56
原创 使用 RichTextBox 控件鏈接到網頁
Public p As New System.Diagnostics.Process Private Sub RichTextBox1_LinkClicked _ (ByVal sender As Object, ByVal e A
2020-06-16 08:24:56
原创 經典正則表達式
正則表達式用於字符串處理，表單驗證等場合，實用高效，但用到時總是不太把握，以致往往要上網查一番。我將一些常用的表達式收藏在這裏，作備忘之用。本貼隨時會更新。 匹配中文字符的正則表達式： [/u4e00-/u9fa5] 匹配雙字節字符(包
2020-02-24 18:36:42
原创 VB.NET常用的一些基本函數
'判斷該窗體是否已經打開 Public Function OpenForm(ByVal myform As Form, ByVal MdiForm As Form) As Boolean Dim form As
2020-02-24 18:36:42
原创 創建未綁定的 Windows 窗體 DataGridView 控件
Imports SystemImports System.DrawingImports System.Windows.Forms Public Class Form1 Inherits System.Windows.Forms.Fo
2020-02-24 18:36:42
原创 NET環境下水晶報表使用總結
水晶報表是一個優秀的報表開發工具，本人在開發通用管理系統的時候，所有報表都使用水晶報表，其簡單、易用和強大的功能令筆者倍加喜愛，現將水晶報表使用手記呈現給大家。 一、在使用自帶的水晶報表時，請註冊，否則只能使用30次 水
2020-02-24 18:36:42
原创 身份證號碼15-18
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Labe
2020-02-24 18:36:42
原创 vb.net2005裏 webclient實現文件下載
Private WithEvents myWebclient As WebClient Private Sub Button1_Click(By
2020-02-24 18:36:41
原创 VB.NET2005 AxWindowsMediaPlayer1連續播放問題解決
實際上就是先定義一個WMP的播放列表: Dim CurrentList As WMPLib.IWMPPlaylist = Me.AxWindowsMediaPlayer1.currentPlaylist Dim Media
2020-02-24 18:36:41
原创 VB.NET的示例使用 AddressOf 運算符來指定線程的啓動函數(多線程)
Public Sub CountSheep() Dim i As Integer = 1 ' Sheep do not count from 0. Do While (True) ' Endless loop.
2020-02-24 18:36:41
1