有關模組 類模組 DLL的陣列傳遞(續一)

2021-06-18 07:44:16 字數 1052 閱讀 2508

【**示例1】和【**示例2】,只使用了靜態陣列。下面使用的動態陣列

【**示例3】

1,開始乙個新的標準 exe 專案。預設情況下建立 form1。

命名工程:動態陣列

2,將類模組新增到專案中。

類命名:ccalc

3,將以下**放在類模組中:

option explicit

public rownum as integer

private arr() as variant

public function arrayvar() as variant

dim i as integer

redim arr(1 to rownum, 1 to 3)

for i = 1 to rownum

arr(i, 1) = i * 3 - 2

arr(i, 2) = i * 3 - 1

arr(i, 3) = i * 3

next i

arrayvar = arr()

end function

4,在窗體上新增

text1,接受陣列最大行數

text2,將結果,即陣列最下一行的元素寫入

乙個按鈕。該按鈕的**為

option explicit

private sub command1_click()

dim a1 as ccalc, nn as long

set a1 = new ccalc

nn = me.text1.text

a1.rownum = nn

dim arr() as variant

arr = a1.arrayvar

me.text2.text = arr(nn, 1) & " " & arr(nn, 2) & " " & arr(nn, 3)

end sub

5,除錯

參考【**示例1】與【**例項2】,注意他們的關係,dll中包含了類模組。

可以很容易將「**示例3」,轉化為excel與dll

與dll共享、相互呼叫陣列資料,方法還有很多

有關nginx rewrite模組的問號

rewrite users show?user 1?last 如果可替換部分的引數都指明了,剩下的引數就會追加到他們後面。為了避免這種情況,放置乙個問號作為最後的字元。對於上面的英文解釋一直沒有弄明白。終於出了乙個例子 重寫是這樣的 rewrite 0 9 1?p 2?last 如果加了?訪問以上的...

有關os模組的練習

在當前目錄新建目錄img,裡面包含多個檔案,檔名各不相同 x4g5.png 將當前img目錄所有以.png結尾的字尾名改為.jpg import string import os 定義乙個函式 生成目錄名稱 def gen code len 4 隨機生成四位隨機數 由字串 數字組成 li rando...

DLL的模組定義檔案( DEF)

動態連線庫函式或者成員的匯出可以用 declspec dllexport 來實現,比如為了匯出void sayhello 函式,則在dll檔案中這麼宣告 或者定義 declspec dllexport void sayhello 也可以不用 declspec dllexport 而採用.def檔案來...