vb.net通過(guò)com方法調(diào)用dll的問(wèn)題

創(chuàng)建結(jié)構(gòu)體，用結(jié)構(gòu)體傳輸數(shù)據(jù)：

在成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作過(guò)程中，需要針對(duì)客戶的行業(yè)特點(diǎn)、產(chǎn)品特性、目標(biāo)受眾和市場(chǎng)情況進(jìn)行定位分析，以確定網(wǎng)站的風(fēng)格、色彩、版式、交互等方面的設(shè)計(jì)方向。成都創(chuàng)新互聯(lián)公司還需要根據(jù)客戶的需求進(jìn)行功能模塊的開發(fā)和設(shè)計(jì)，包括內(nèi)容管理、前臺(tái)展示、用戶權(quán)限管理、數(shù)據(jù)統(tǒng)計(jì)和安全保護(hù)等功能。

Public Structure InValue

Public P As 類型

Public Q As 類型

'其他值定義

End Structure

Public Structure OutValue

Public A() As 類型

Public B As 類型

'其他值定義

End Structure

把Dll內(nèi)的方法改為：

Public Function calculation(value As InValue) As OutValue

Dim [out] As New OutValue

'處理函數(shù)

Return [out]

End Function

引用：

dim ffun as new pla.tua

dim inval as invalue

in.** = **

dim outp as outvalue = ffun.calculation(inval)

vb.net的COM組件的編寫問(wèn)題

我想了兩種思路，winform沒(méi)有findControl，只有個(gè)this.Controls.Contains("textBox1")，因此除了遍歷沒(méi)辦法了。。。

思路1：遍歷Controls，具體你自己完善下，

if(this.Controls.Count0)

{

foreach(Control c in this.Controls)

if(c.GetTepy==Tepyof(TextBox))

string str += ((TextBox)c).Text;

}

vb.net添加com控件出現(xiàn)這樣的錯(cuò)誤，如何解決？

如提示，請(qǐng)注冊(cè)你調(diào)用的外部控件。

注冊(cè)win+R，

寫入regsvr32 "帶完整路徑的文件"，回車

vb.net中，關(guān)于comobox的使用問(wèn)題

你的代碼全不全啊？怎么我沒(méi)看到半句賦值給文本框的語(yǔ)句，即便這句 s = KA_TextBox.Text有點(diǎn)像，但也是反的。你缺少一句： KA_TextBox.Text= ... 。

vb.net 怎么操作數(shù)據(jù)庫(kù)

如果樓主熟悉VB6，可以直接在項(xiàng)目中添加ADODB的Com引用，這樣你就可以像VB6那樣操作數(shù)據(jù)庫(kù)了！

另外

.NET

Framework中連接數(shù)據(jù)庫(kù)要用到ADO.NET。如果要操作Access數(shù)據(jù)庫(kù)，要用到System.Data.OleDb命名空間下的許多類。

比如按樓主所說(shuō)，“我想在textbox1中顯示表一中【一些數(shù)據(jù)】字段下的第一個(gè)內(nèi)容”：

'首先導(dǎo)入命名空間

Imports

System.Data

Imports

System.Data.OleDb

'然后在某一個(gè)事件處理程序中寫：

Dim

conn

As

New

OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data

Source=數(shù)據(jù)庫(kù).accdb;Jet

OLEDB:Database

Password=MyDbPassword")

Dim

command

As

New

OleDbCommand("Select

*

From

數(shù)據(jù)表",

conn)

conn.Open()

'打開數(shù)據(jù)庫(kù)連接

Dim

reader

As

OleDbDataReader

=

command.ExecuteReader()

'執(zhí)行SQL語(yǔ)句，返回OleDbDataReader

對(duì)象

Do

While

reader.Read()

'讀取一條數(shù)據(jù)

textbox1.Text

+=

reader("一些數(shù)據(jù)")

VbCrLf

Loop

reader.Close()

'關(guān)閉OleDbDataReader

conn.Close()

'關(guān)閉連接