VB.net中的圖片問題

void CGridImageDlg::OnSave()

讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來自于我們對(duì)這個(gè)行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長期合作伙伴，公司提供的服務(wù)項(xiàng)目有：域名與空間、虛擬空間、營銷軟件、網(wǎng)站建設(shè)、環(huán)翠網(wǎng)站維護(hù)、網(wǎng)站推廣。

{

try

{

pRecordset.CreateInstance("ADODB.Recordset");

pRecordset-Open("SELECT * FROM 基本信息圖片",_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);

}

catch(_com_error e)///捕捉異常

{

AfxMessageBox("讀取數(shù)據(jù)庫失敗!");///顯示錯(cuò)誤信息

}

//刪除所有記錄

while (!pRecordset-adoEOF)

{

pRecordset-Delete(adAffectCurrent);///刪除當(dāng)前記錄

pRecordset-MoveNext();

}

int m_Rcount = 1;

while (m_Rcount m_GridCtrl.GetRowCount())

{

pRecordset-AddNew();

if(m_GridCtrl.GetItemText(m_Rcount,0)!="")

pRecordset-Fields-GetItem(_variant_t("圖片編號(hào)"))-Value=_bstr_t(m_GridCtrl.GetItemText(m_Rcount,0));

if(m_GridCtrl.GetItemText(m_Rcount,1)!="")

pRecordset-Fields-GetItem(_variant_t("橋梁編號(hào)"))-Value=_bstr_t(m_GridCtrl.GetItemText(m_Rcount,1));

//獲得文件名

CString m_sname;

m_sname.Format("%s",m_GridCtrl.GetItemText(m_Rcount,2));

//獲取擴(kuò)展名

CString m_sExt;

m_sExt.Format("%s%s",_T("."),m_GridCtrl.GetItemText(m_Rcount,4));

//獲得主程序的路徑

CString sPath;

GetModuleFileName(NULL,sPath.GetBufferSetLength (MAX_PATH+1),MAX_PATH);

sPath.ReleaseBuffer ();

int nPos;

nPos=sPath.ReverseFind ('\\');

sPath=sPath.Left (nPos);

//獲取圖片數(shù)據(jù)

CFile f;

CString FilePathName;

FilePathName.Format("%s%s%s%s",sPath,_T("\\臨時(shí)圖片\\"),m_sname,m_sExt); //文件名和后綴名

CFileException e;

if(f.Open(FilePathName, CFile::modeRead | CFile::typeBinary, e)) //打開了一個(gè)文件

{

int nSize = f.GetLength(); //先得到文件長度

BYTE * pBuffer = new BYTE [nSize]; //按文件的大小在堆上申請一塊內(nèi)存

if (f.Read(pBuffer, nSize) 0 ) //把文件讀到pBuffer(堆上申請一塊內(nèi)存)

{ // +----------------------------------------------

BYTE *pBuf = pBuffer; ///下面這一大段是把pBuffer里的數(shù)據(jù)放到庫中

VARIANT varBLOB;

SAFEARRAY *psa;

SAFEARRAYBOUND rgsabound[1];

if(pBuf)

{

rgsabound[0].lLbound = 0;

rgsabound[0].cElements = nSize;

psa = SafeArrayCreate(VT_UI1, 1, rgsabound);

for (long i = 0; i (long)nSize; i++)

SafeArrayPutElement (psa, i, pBuf++);

varBLOB.vt = VT_ARRAY | VT_UI1;

varBLOB.parray = psa;

pRecordset-GetFields()-GetItem("圖片數(shù)據(jù)")-AppendChunk(varBLOB);

}

delete [] pBuffer; //刪掉堆上申請的那一塊內(nèi)存

pBuf=0; //以防二次亂用

f.Close();

}

}

if(m_GridCtrl.GetItemText(m_Rcount,3)!="")

pRecordset-Fields-GetItem(_variant_t("圖片類別名稱"))-Value=_bstr_t(m_GridCtrl.GetItemText(m_Rcount,3));

if(m_GridCtrl.GetItemText(m_Rcount,4)!="")

pRecordset-Fields-GetItem(_variant_t("圖片后綴"))-Value=_bstr_t(m_GridCtrl.GetItemText(m_Rcount,4));

if(m_GridCtrl.GetItemText(m_Rcount,5)!="")

pRecordset-Fields-GetItem(_variant_t("拍攝日期"))-Value=_bstr_t(m_GridCtrl.GetItemText(m_Rcount,5));

if(m_GridCtrl.GetItemText(m_Rcount,6)!="")

pRecordset-Fields-GetItem(_variant_t("圖片描述"))-Value=_bstr_t(m_GridCtrl.GetItemText(m_Rcount,6));

m_Rcount++;

pRecordset-Update();

}

}

Vb.net怎么實(shí)現(xiàn)圖像的處理

這問題有點(diǎn)籠統(tǒng)，軟糖來說說把：

圖像處理由System.Drawing命名空間負(fù)責(zé)。

主要是Bitmap類和Graphics類。

Bitmap表示一個(gè)位圖，可以是BMP,JPG,PNG等文件。

裝載位圖

Dim?位圖?As?Bitmap?=?Bitmap.FromFile("C:\Image1.PNG")

Graphics表示一張畫紙，能夠進(jìn)行繪制操作。

它可以被窗體、控件、位圖調(diào)用CreateGraphics()方法來創(chuàng)建。

然后調(diào)用Graphics.Draw開頭的一系列函數(shù)來繪制圖像和圖形，F(xiàn)ill開頭的填充圖形。

創(chuàng)建畫紙并繪制位圖

Dim?畫紙?As?Graphics?=?Me.CreateGraphics()

畫紙.DrawImage(位圖,?100,?100,?256,?256)

可以將上面三行放到Form1_Load中測試，把路徑改一下，

還可以把Me改為能在上面繪圖的控件的名稱。

更多內(nèi)容請看MSDN的System.Drawing命名空間。

如滿意，請采納，謝謝。

VB.Net如何實(shí)現(xiàn)摳圖并繪圖

項(xiàng)目中要用圖形來顯示一個(gè)閥門的開度，以及控制閥的開度。本來是要用什么公司買的控件中的餅圖之類的實(shí)現(xiàn)，不過我覺得也是麻煩，就想，還是自己畫吧。

首先添加一個(gè)TrackBar，名字是“TrackBar1”，一個(gè)label，名字是“L_A_SHANG”，一個(gè)GroupBox，名字是“GB_RIGHT”,，然后添加拉動(dòng)滾動(dòng)條時(shí)的處理函數(shù)

'上位機(jī)控制

Dim m_start As Integer

Dim RcDraw As System.Drawing.Rectangle

Private Sub TrackBar1_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll

m_start = (100 - TrackBar1.Value)

Me.L_A_SHANG.Text = Me.TrackBar1.Value.ToString

GB_RIGHT.Invalidate() '重畫GB_RIGHT

End Sub

添加GB_RIGHT重畫時(shí)的處理函數(shù)

Private Sub GB_RIGHT_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles GB_RIGHT.Paint

RcDraw.X = TrackBar1.Location.X - 40

RcDraw.Y = 20

RcDraw.Height = 100

RcDraw.Width = 20

e.Graphics.DrawRectangle(New Pen(Color.Blue, 5), RcDraw)

Dim i = TrackBar1.Location.X - 40

For i = TrackBar1.Location.X - 40 To TrackBar1.Location.X - 20

e.Graphics.DrawLine(New Pen(Color.Blue, 5), i, m_start + 20, i, 120)

Next

Me.L_A_SHANG.Text = Me.TrackBar1.Value.ToString + "%"

End Sub

到此以及可以實(shí)現(xiàn)拉動(dòng)條的時(shí)候，圖像跟著變化，并顯示百分比。