相關分類: Java技術 C/C++ VB delphi
  • 設置對VisualBasic數據庫連接的動態路徑

    我個人因為經常作一些數據庫方面的程序,對于程序間如何與數據庫進行接口的問題之煩是深有體會,因為VB在數據庫鏈接的時候,一般是靜態,即數據庫存放的路徑是固定的,如用VB的DATA,adodc,DataEnvironment等到作數據庫鏈接時,如果存放數據庫的路徑被改變的話,就會找...

    2018-06-17 17:16:51

  • 快速開發多媒體Web

    一、概述 ----Web技術的誕生使得Internet在世界范圍內迅速漫延,大大加速了全球網絡化的進程,人們通過Web瀏覽器,可以瀏覽到世界各地成千上萬個Web服務器提供的Web頁面,獲取各種信息。但是,如今的許多Web頁面功能單一、缺乏交互能力,談不上文本、圖像、聲音、視頻...

    2018-06-17 17:16:49

  • VB如何將DBgrid印出來

    ->OptionExplicit PrivateSubCommand1_Click() DimIAsLong,JAsLong,KAsLong DimPrintStringAsString ForI=0ToData1.Recordset.RecordCount-1 IfK=DBGrid1.VisibleRowsThen DBGrid1.Scroll0,DBGrid1.VisibleRows K=0 EndIf ForJ=0ToDBGrid1.Columns.Count-1 PrintString...

    2018-06-17 17:16:47

  • 取得WAV文件信息

    WAV文件基本信息包括如是否立體聲,采樣頻率等。 聲明: PublicConstRIFF_ID=1179011410 PublicConstRIFF_WAVE=1163280727 PublicConstRIFF_FMT=544501094 'TypicalheaderofasimpleRIFFWAVEfile PublicTypeWAVInfo Riff_FormatAsLong chunk_sizeAsLong ChunkIDAsLongfm...

    2018-06-17 17:16:46

  • And、Or和Xor:讓我們來優化表達式

    要檢測一個整數值的最高有效位是否有數值,通常要使用如下的代碼(有二種情況:第一組If判斷表明對Integer類型,第二組對Long類型): IfintValueAndH8000Then 'mostsignificantbitisset EndIf IflngValueAndH80000000Then 'mostsignificantbitisset EndIf 但由于所有...

    2018-06-17 17:16:46

  • 在Windows98中使用VB5.0編程疑難一解

    ----隨著Windows98正式版的推出,越來越多的人開始關注它。本人最近也在機器中安裝了一套,的確發現許多新的東西,操作更加自如、方便,但是,最近在Windows98下使用VB5.0編程卻遇到了一個大難題:原來在Windows95中編寫的VB可執行程序卻怎么也不能運行,總是提示:"該...

    2018-06-17 17:16:44

  • 用VisualBasic開發綠色軟件的探討

    我認為的綠色軟件就是免安裝,短小精干的軟件,目前的大部分共享軟件都屬于此類(或向綠色軟件靠攏)。 連比較大的phoshop軟件也把一些注冊項放到一個專門的注冊文件(reg文件)里,到時重裝的操作系統,只需把reg文件導入的注冊表即可。此外比如金山軟件,基本上都是...

    2018-06-17 17:16:41 api開發delphi

  • 利用VisualBasic實現木馬攻擊

    首先,新建一工程,名為Server,新建一個窗體,Name為Server,在窗體中加入一個winsock控件,Name設為sckServer,協議設為默認的TCP/IP協議。 接下來我們回來Server窗體模塊中,添加如下代碼: ->PrivateSubform_Load() WithMe .sckServer.LocalPort=88917'本地端口(...

    2018-06-17 17:16:41

  • HierarchicalFlexGrid控件

    訪問HierarchicalFlexGrid控件 要在VisualBasic中安裝并訪問HierarchicalFlexGrid控件,請使用以下步驟。 要安裝和訪問HierarchicalFlexGrid控件 1.在“工程”菜單中,選擇“部件”。出現“部件”對話框。 2.在“控件”選項卡中,選擇“MicrosoftHierarchicalFlexGridC...

    2018-06-17 17:16:40

  • 人民幣金額轉換例程

    '調用方法Text2=ChMoney(Val(Text1)) '名稱:CCh '得到一位數字N1的漢字大寫 '0返回"" PrivateFunctionCCh(N1)AsString SelectCaseN1 Case0 CCh="零" Case1 CCh="壹" Case2 CCh="貳" Case3 CCh="叁" Case4 CCh="肆" Case5 CCh="伍" Case6 CCh="陸" Case7 CCh="柒" Case...

    2018-06-17 17:16:39

首頁 1 2 3 4 5 6 7 8 9 10 11 下一頁 末頁 2192187
色情影院 日本电影 2