需用VB實現(xiàn)，代碼如下
創(chuàng)新互聯(lián)是一家集網(wǎng)站建設,南樂企業(yè)網(wǎng)站建設,南樂品牌網(wǎng)站建設,網(wǎng)站定制,南樂網(wǎng)站建設報價,網(wǎng)絡營銷,網(wǎng)絡優(yōu)化,南樂網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學習、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。
'定義蛇的運動速度枚舉值
Private Enum tpsSpeed
QUICKLY = 0
SLOWLY = 1
End Enum
'定義蛇的運動方向枚舉值
Private Enum tpsDirection
D_UP = 38
D_DOWN = 40
D_LEFT = 37
D_RIGHT = 39
End Enum
'定義運動區(qū)域4個禁區(qū)的枚舉值
Private Enum tpsForbiddenZone
FZ_TOP = 30
FZ_BOTTOM = 5330
FZ_LEFT = 30
FZ_RIGHT = 5730
End Enum
'定義蛇頭及身體初始化數(shù)枚舉值
Private Enum tpsSnake
SNAKEONE = 1
SNAKETWO = 2
SNAKETHREE = 3
SNAKEFOUR = 4
End Enum
'定義蛇寬度的常量
Private Const SNAKEWIDTH As Integer = 100
'該過程用于顯示游戲信息
Private Sub Form_Load()
Me.Show
Me.lblTitle = "BS貪食蛇 — (版本 " App.Major "." App.Minor "." App.Revision ")"
Me.Caption = Me.lblTitle.Caption
frmSplash.Show 1
End Sub
'該過程用于使窗體恢復原始大小
Private Sub Form_Resize()
If Me.WindowState 1 Then
Me.Caption = ""
Me.Height = 6405 '窗體高度為 6405 緹
Me.Width = 8535 '窗體寬度為 8535 緹
Me.Left = (Screen.Width - Width) \ 2
Me.Top = (Screen.Height - Height) \ 2
End If
End Sub
'該過程用于重新開始開始游戲
Private Sub cmdGameStart_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
msg = MsgBox("您確認要重新開始游戲嗎？", 4 + 32, "BS貪食蛇")
If msg = 6 Then Call m_subGameInitialize
End Sub
'該過程用于暫停/運行游戲
Private Sub chkPause_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.chkPause.Caption = "暫停游戲(P)" Then
Me.tmrSnakeMove.Enabled = False
Me.tmrGameTime.Enabled = False
Me.picMoveArea.Enabled = False
Me.lblPauseLab.Visible = True
Me.chkPause.Caption = "繼續(xù)游戲(R)"
Else
Me.tmrSnakeMove.Enabled = True
Me.tmrGameTime.Enabled = True
Me.picMoveArea.Enabled = True
Me.lblPauseLab.Visible = False
Me.chkPause.Caption = "暫停游戲(P)"
End If
End Sub
'該過程用于顯示游戲規(guī)則
Private Sub cmdGameRules_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
MsgBox " BS貪食蛇：一個規(guī)則最簡單的趣味游戲，您將用鍵盤" Chr(13) _
"上的4個方向鍵來控制蛇的運動方向。在運動過程中蛇" Chr(13) _
"不能后退，蛇的頭部也不能接觸到運動區(qū)域的邊線以外" Chr(13) _
"和蛇自己的身體，否則就游戲失敗。在吃掉隨機出現(xiàn)的" Chr(13) _
"果子后，蛇的身體會變長，越長難度越大。祝您好運??！", 0 + 64, "游戲規(guī)則"
End Sub
'該過程用于顯示游戲開發(fā)信息
Private Sub cmdAbout_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
MsgBox "BS貪食蛇" "(V-" App.Major "." App.Minor "版本)" Chr(13) Chr(13) _
"" Chr(13) Chr(13) _
"由PigheadPrince設計制作" Chr(13) _
"CopyRight(C)2002,BestSoft.TCG", 0, "關于本游戲"
End Sub
'該過程用于退出游戲
Private Sub cmdExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
msg = MsgBox("您要退出本游戲嗎？", 4 + 32, "BS貪食蛇")
Select Case msg
Case 6
End
Case 7
Me.chkWindowButton(2).Value = 0
Exit Sub
End Select
End Sub
'該過程用于拖動窗體_(點擊圖標)
Private Sub imgWindowTop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
End Sub
'該共用過程用于處理窗體控制按鈕組的相關操作_(鎖定、最小化、退出)
Private Sub chkWindowButton_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button 1 Then Exit Sub
Select Case Index
Case 0 '鎖定窗體
If Me.chkWindowButton(0).Value = 1 Then
Me.imgWindowTop.BorderStyle = 0
Me.imgWindowTop.Enabled = False
Else
Me.imgWindowTop.BorderStyle = 1
Me.imgWindowTop.Enabled = True
End If
Case 1 '最小化
Me.WindowState = 1
Me.chkWindowButton(1).Value = 0
Me.Caption = "BS貪食蛇 — (V-" App.Major "." App.Minor "版本)"
Case 2 '退出
Beep
msg = MsgBox("您要退出本游戲嗎？", 4 + 32, "BS貪食蛇")
Select Case msg
Case 6
End
Case 7
Me.chkWindowButton(2).Value = 0
Exit Sub
End Select
End Select
End Sub
'該過程用于設置蛇運動速度的快慢
Private Sub hsbGameSpeed_Change()
Me.tmrSnakeMove.Interval = Me.hsbGameSpeed.Value
End Sub
'該過程用于通過鍵盤的方向鍵改變蛇的運動方向
Private Sub picMoveArea_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case g_intDirection
Case D_UP
If KeyCode = D_DOWN Then Exit Sub
Case D_DOWN
If KeyCode = D_UP Then Exit Sub
Case D_LEFT
If KeyCode = D_RIGHT Then Exit Sub
Case D_RIGHT
If KeyCode = D_LEFT Then Exit Sub
End Select
g_intDirection = KeyCode
End Sub
'該計時循環(huán)過程用于計算游戲耗費的秒數(shù)并顯示
Private Sub tmrGameTime_Timer()
g_lngGameTime = g_lngGameTime + 1
Me.lblGameTime.Caption = g_lngGameTime "秒"
End Sub
'該計時循環(huán)過程用于控制蛇的行動軌跡
Private Sub tmrSnakeMove_Timer()
Dim lngSnakeX As Long, lngSnakeY As Long, lngSnakeColor As Long
Dim lngPointX As Long, lngPointY As Long, lngPointColor As Long
Randomize
Me.picMoveArea.SetFocus
Me.picMoveArea.Cls
'確認蛇頭的運動方向并獲取新的位置
Select Case g_intDirection
Case D_UP '向上運動
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_CurY - SNAKEWIDTH
Case D_DOWN '向下運動
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_CurY + SNAKEWIDTH
Case D_LEFT '向左運動
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_CurX - SNAKEWIDTH
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY
Case D_RIGHT '向右運動
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_CurX + SNAKEWIDTH
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY
End Select
'根據(jù)新的位置繪制蛇頭
lngSnakeX = g_udtSnake(SNAKEONE).Snake_CurX
lngSnakeY = g_udtSnake(SNAKEONE).Snake_CurY
lngSnakeColor = g_udtSnake(SNAKEONE).Snake_Color
Me.picMoveArea.PSet (lngSnakeX, lngSnakeY), lngSnakeColor
'移動蛇身體其他部分的位置
For i = 2 To g_intSnakeLength
g_udtSnake(i).Snake_CurX = g_udtSnake(i - 1).Snake_OldX
g_udtSnake(i).Snake_CurY = g_udtSnake(i - 1).Snake_OldY
lngSnakeX = g_udtSnake(i).Snake_CurX
lngSnakeY = g_udtSnake(i).Snake_CurY
lngSnakeColor = g_udtSnake(i).Snake_Color
Me.picMoveArea.PSet (lngSnakeX, lngSnakeY), lngSnakeColor
Next i
'更新蛇舊的坐標位置
For j = 1 To g_intSnakeLength
g_udtSnake(j).Snake_OldX = g_udtSnake(j).Snake_CurX
g_udtSnake(j).Snake_OldY = g_udtSnake(j).Snake_CurY
Next j
'判斷蛇在移動中是否到了禁區(qū)而導致游戲失敗
If m_funMoveForbiddenZone(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then
Beep
MsgBox "您的蛇移動到了禁區(qū)，游戲失敗！", 0 + 16, "BS貪食蛇"
Me.tmrSnakeMove.Enabled = False
Me.tmrGameTime.Enabled = False
Me.picMoveArea.Visible = False
Exit Sub
End If
'判斷蛇在移動中是否碰到了自己的身體而導致游戲失敗
If m_funTouchSnakeBody(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then
Beep
MsgBox "您的蛇在移動中碰到了自己的身體，游戲失??！", 0 + 16, "BS貪食蛇"
Me.tmrSnakeMove.Enabled = False
Me.tmrGameTime.Enabled = False
Me.picMoveArea.Visible = False
Exit Sub
End If
'判斷蛇是否吃到了果子
If m_funEatPoint(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then
'累加玩家的得分并刷新得分顯示
g_intPlayerScore = g_intPlayerScore + 1
Me.lblYourScore.Caption = g_intPlayerScore "分"
Call m_subAddSnake '加長蛇的身體
Call m_subGetPoint '獲取下一個果子的位置和顏色
Else
'繪制果子
lngPointX = g_udtPoint.Point_X
lngPointY = g_udtPoint.Point_Y
lngPointColor = g_udtPoint.Point_Color
Me.picMoveArea.PSet (lngPointX, lngPointY), lngPointColor
End If
End Sub
'該私有子過程用于初始化游戲
Private Sub m_subGameInitialize()
Erase g_udtSnake '清空蛇的結構數(shù)組
g_intPlayerScore = 0 '清空玩家的得分
g_lngGameTime = 0 '清空游戲耗費的秒數(shù)
g_intDirection = D_DOWN '設定蛇的初始運動方向為下
g_intSnakeLength = 4 '設定蛇的初始長度
ReDim g_udtSnake(1 To g_intSnakeLength) '重新定義蛇的長度
'定義蛇頭部的數(shù)據(jù)
With g_udtSnake(SNAKEONE)
.Snake_OldX = 530
.Snake_OldY = 530
.Snake_Color = vbBlack
End With
'定義蛇身第2節(jié)的數(shù)據(jù)
With g_udtSnake(SNAKETWO)
.Snake_OldX = 530
.Snake_OldY = 430
.Snake_Color = vbGreen
End With
'定義蛇身第3節(jié)的數(shù)據(jù)
With g_udtSnake(SNAKETHREE)
.Snake_OldX = 530
.Snake_OldY = 330
.Snake_Color = vbYellow
End With
'定義蛇身第4節(jié)的數(shù)據(jù)
With g_udtSnake(SNAKEFOUR)
.Snake_OldX = 530
.Snake_OldY = 230
.Snake_Color = vbRed
End With
Me.picMoveArea.Visible = True
Me.lblYourScore.Caption = g_intPlayerScore "分"
Me.lblGameTime.Caption = g_lngGameTime "秒"
Me.tmrSnakeMove.Interval = Me.hsbGameSpeed.Value
Me.tmrSnakeMove.Enabled = True
Me.tmrGameTime.Enabled = True
Call m_subGetPoint '獲取第一個果子的位置和顏色
End Sub
[PS基礎知識] Phptoshop CS的界面組成
Phptoshop CS的界面主要由標題欄、菜單欄、屬性欄、工具箱、控制面板、圖像窗口、狀態(tài)欄這7部分組成。
其中各項的作用如下：
◆標題欄：標題欄位于界面的頂部用來顯示程序的名稱。
◆菜單欄：菜單欄位于標題欄的下方，它涵蓋了Phptoshop中所有的菜單命令，包括文件、編輯、圖像、圖層、選擇、濾鏡、視圖、窗口、幫助9個選項。
◆屬性欄：當用戶在工具箱中選擇一種工具，會在屬性欄中出現(xiàn)相應的選項，為選項設置不同的參數(shù)，可以得到不同的結果。
◆工具箱：在工具箱中提供了用于創(chuàng)建和編輯圖像的各種工具，如選擇工具、繪圖工具、文字工具等。
◆控制面板：在窗口界面的右側，浮動著Phptoshop的控制面板，共包含15個，其中常用的是圖層、通道、路徑和畫筆控制面板。所有的控制面板都可以在“窗口”菜單中打開。
◆圖像窗口：用來對圖像進行編輯和各種操作的窗口。
◆狀態(tài)欄：狀態(tài)欄位于窗口的底部，主要用于顯示圖像處理的各種信息。
一、“矩形選框”工具:用鼠標單擊“矩形選框”工具右下方，可以出現(xiàn)下拉菜單。其中還包含“橢圓選框”工具、“單行選框”工具、“單列選框”工具。如圖:利用這些工具可制作比較規(guī)則的選區(qū)。當用戶選擇了“矩形選框”工具后，在屬性欄會出現(xiàn)相應的選項。如圖
其中各項的作用如下：
◆新選區(qū)按紐：單擊此按紐，新的選區(qū)將代替原有選區(qū)。
◆添加選區(qū)按紐：單擊此按紐，會在原有選區(qū)的基礎上添加選區(qū)。
◆從選區(qū)減去按紐：單擊此按紐，會在原有選區(qū)上減去新創(chuàng)建的選區(qū)。
◆與選區(qū)交*按紐：單擊此按紐，建立的選區(qū)與原有選區(qū)相交的部分將作為新的選區(qū)。
◆羽化：設置羽化值可以使選區(qū)形成邊緣模糊的特殊效果。如圖
二、“移動”工具
利用“移動”工具，可以將圖層中的一副圖像或選區(qū)移動到指定的位置，也可以將同一窗口的一個圖像文件中的圖像或選區(qū)移動到另一個圖像文件中。
三、“套索”工具
套索工具包含“套索”工具、“多邊形套索”工具、“磁性套索”工具。利用套索工具可以制作一些不規(guī)則的選區(qū)。其中“磁性套索”工具的使用頻率較高，它可以自動查找對象的邊緣，快速生成選區(qū)。
四、“魔棒”工具
利用“魔棒”工具可以選取圖像中顏色相似的區(qū)域，使用“魔棒”工具時，在屬性欄中可以設置“容差”選項，它用來決定選取顏色的范圍，“容差”值越大，顏色區(qū)域越廣，默認情況下，“容差”值為32。
五、“漸變”工具使用“漸變”工具可以為圖像添充層次連續(xù)變化的顏色，從而達到一種色彩的圖像效果。使用“漸變”工具時，要先使用鼠標定位，確定起點，然后拖到終點，即可產生漸變效果。使用“漸變”工具的步驟如下：1、選擇工具箱中的“漸變”工具，屬性欄中出現(xiàn)相應的屬性選項。如圖
從中可以設置顏色值，按Alt鍵，單擊并拖動色塊上的色標按扭可以創(chuàng)建并編輯一個新的漸變顏色。
◆“漸變類型”：有線性漸變、徑向漸變、角度漸變、對稱漸變、菱形漸變。
◆“模式”：單擊“模式”右側的三角，彈出下拉菜單，可以選擇當前要設置的漸變與當前圖像的混合模式，包括疊加、正片疊底、顏色加深等，選擇不同的模式，可以得到不同的效果。
◆不透明度：用來表示當前漸變的透明程度。2、在屬性欄中設置各選項后，在圖像窗口中單擊鼠標確定起點后，拖動到終點，松開鼠標即可創(chuàng)建漸變。
六、“模糊”、“銳化”和“涂抹”工具br1、利用“模糊”工具可以將兩副圖像進行邊緣融合、模糊。br2、使用“銳化”工具，可以使圖像變的更清晰、色彩更亮，更鮮明。br3、使用“涂抹”工具，就象用手指在還未干的畫紙上涂抹一下的效果
七、“文字”工具br使用“文字”工具可以在圖像上輸入文字。在圖層控制面板上，文字會單獨做為一個圖層出現(xiàn)。br利用“文字”工具的步驟如下：br1、選擇“文字”工具，在屬性欄上可以設置文字的大小、顏色、字體等參數(shù)。如圖
在圖像窗口中單擊，會出現(xiàn)光標，可以直接輸入文字。br3、創(chuàng)建變形文字：選中文字，單擊“創(chuàng)建變形文字”按紐，可以打開“變形文字”對話框，單擊“樣式”選擇不同的選項，可以得到不同的變形文字。br4、單擊屬性欄中的“切換字符和段落調板”按紐，可以打開“字符和段落”對話框，從中可以設置字符的字體、間距、段落的間距、格式等參數(shù)。
八、“路徑”工具
當用戶要繪制比較復雜或有創(chuàng)意的圖形時，需要用到“路徑”工具。利用工具箱中的“鋼筆”工具、“自由鋼筆”工具。可以繪制直線或曲線，這些直線和曲線被稱為“貝塞爾曲線”，曲線上有稱為“錨點”的結點。通過錨點可以調整曲線的形狀。貝塞爾曲線可以是開放的，也可以是閉合的。
單擊工具箱中的“路徑”工具，會彈出下拉菜單如圖
此主題相關圖片如下：
各項功能如下：
◆“自由鋼筆”工具：可以用自由拖移的方法直接繪制路徑。
◆“添加錨點”工具：用于在線段內部添加錨點。
◆“刪除錨點”工具：用于在線段內部刪除不需要的錨點。
◆“轉換點”工具：用于平滑點與角度之間的轉換。從而實現(xiàn)平滑曲線與銳角曲線或直線段之間的轉換。
九、“形狀”工具
用戶可以在新圖層中創(chuàng)建形狀。形狀由當前的前景色自動填充，也可以將填充更改為其他顏色、漸變或圖案。形狀的輪廓存儲在路徑面板的圖層剪貼路徑中。
當使用“形狀”工具時，可以在當前的圖層創(chuàng)建柵格化形狀。創(chuàng)建柵格化形狀后，將無法作為矢量對象進行編輯。
單擊“自定義形狀”工具。在其下拉菜單中如圖
此主題相關圖片如下：
十、“前景色與背景色轉換”工具
單擊工具箱中的“前景色與背景色轉換”工具按紐如圖
控制面板
在Photoshop中，提供了12中控制面板，它們浮動在圖像窗口的上方，位于界面的右側。
一、圖層控制面板
所謂圖層，通俗的說，就是將多副帶有透明度的圖片或紙張進行重疊，得到一個整體的效果，而每一張圖片又是獨立存在的，它們可以單獨被編輯或修改。
圖層面板各部分的意義如下如圖
◆“指示圖層可視性”按紐：顯示此標志，表示此圖層處于可顯示狀態(tài)。
◆“指示在圖層或圖層蒙版上繪畫”按紐：若在某一圖層前顯示此標志，表示此圖層處于編輯狀態(tài)。
◆“鏈接”按紐：單擊此按鈕，表示此圖層與當前圖層處于鏈接狀態(tài)。
◆“添加圖層樣式”按紐：單擊此按鈕，在彈出的下拉菜單中選擇不同的命令，可以設置不同的圖層樣式。
◆“新建”按紐：單擊此按鈕，表示創(chuàng)建新的圖層。
◆“刪除”按紐：單擊此按鈕，表示刪除當前圖層。
◆“創(chuàng)建新的填充或調整圖層”按紐：單擊此按鈕，在彈出的下拉菜單中選擇不同的命令，可以為圖層創(chuàng)建新的填充層或調節(jié)層。
◆“創(chuàng)建新組”按紐：單擊此按鈕，可以創(chuàng)建一個新組，在一個組中可以包含有多個圖層，在組中可以同時對多個圖層進行操作。
◆“添加圖層蒙版”按紐：單擊此按鈕，可以創(chuàng)建圖層蒙版。
◆“鎖定”按紐：單擊此按鈕，表示當前圖層被鎖定。圖層被鎖定后，用戶不能對其進行移動等設置。
二、通道控制面板
對于剛剛接觸Photoshop的人來說，通道是一個較難理解的概念。其實，通道的功能主要包含兩個，即管理顏色和制作選區(qū)。在通道控制面板中，列出了圖像的所有通道如圖
包括復合通道、單色通道、專色通道和Alpha通道、通道內容的縮略圖顯示在通道名稱的左側。在通道控制面板，用戶也可以創(chuàng)建、刪除或將選區(qū)存儲為通道。
三、路徑控制面板
在路徑控制面板中，用戶可以顯示存儲的路徑，當前路徑和當前圖層剪貼路徑的名稱和縮覽圖像。路徑控制面如圖
文件的基本操作
一、新建文件
選擇“文件”“新建”命令（Ctrl+N快捷鍵），打開“新建”對話框如圖
在對話框中，在名稱的右側的文本框可以輸入要創(chuàng)建文件的名稱，在寬度、高度、分辨率、模式后的文本框可以設置寬度、高度、分辨率、模式。
二、打開文件
選擇“文件”“打開”命令，彈出“打開”對話框如圖
在查找范圍中可以選擇要打開文件的路徑，設置好路徑后，選擇文件類型中要打開文件的類型，單擊打開，就可以打開文件。
三、存儲文件
選擇“文件”“存儲”命令（Ctrl+S快捷鍵），打開“存儲為”對話框如圖
此主題相關圖片如下：
在保存在的右側選擇保存文件的路徑。在格式的下拉菜單中選擇存儲文件的格式，在文件名中輸入名稱，即可保存。默認情況下，Photoshop使用的格式為PSD，用戶也可以使用TIFF或JPG格式文件保存。
件格式和圖像的色彩模式
一、文件的格式
在Photoshop中，較常用的文件格式：
◆PSD：這是Photoshop默認的文件格式，可以保存圖像的圖層、路徑、通道等。
◆TIFF：圖形文件的一種記錄格式，用于在各種軟件和計算機之間傳送圖形文件格式，普遍用于多種掃描儀。
◆EPS：其文本和圖形可在專用的PostScript打印機上打印，也可以供不同的計算機之間交換圖形。
◆JPG：是一種主要用于靜態(tài)圖像的壓縮和解壓縮標準文件，使用此格式后，文件中的圖層、路徑、通道等將被合并。
◆GIF：圖形文件的一種記錄格式，照片或圖形在服務時采用的一種節(jié)省空間的存儲格式。
二、圖像的色彩模式
顏色模式?jīng)Q定用于顯示和打印圖像的顏色模型。Photoshop的顏色模式包括RGB、CMYK和灰度模式。
◆RGB模式：這是Photoshop默認模式，在此模式下圖像比較清晰。
◆CMYK模式：在圖像打印時，都使用CMYK四色印刷。在Photoshop的CMYK模式中，為每個像素的各種印刷油墨指定一個百份比值。
◆灰度模式：該模式多達到256級灰度?；叶葓D像中的每個像素都有一個0-255之間的亮度值。
圖像的基本操作
一、置入圖像
1、當要置入的圖像在另一個圖像文件時，打開另一個圖像文件，選中要置入的圖像，利用工具箱中的“移動”工具，將圖像拖動到目標文件。
2、也可以選中要置入的圖像，選擇“編輯”“拷貝”命令，再次選擇“編輯”“粘貼”命令置入圖像
二、變形圖像
選擇“編輯”“變換”命令下的選項如圖
此主題相關圖片如下：
或選擇“編輯”“自由變換”選項，都可以對圖像進行變換。
在變換命令的下拉菜單中，包含縮放、旋轉、斜切、扭曲、透視、水平翻轉、垂直翻轉等多個選項。
◆斜切和扭曲：可以產生變形效果。
◆透視：選擇透視命令后，在水平或垂直位置上移動一個角度時，與之在同一水平或垂直線上的角點也隨之移動。如圖
三、調整圖像色彩和色調
選擇“圖像”“調整”命令下的選項如圖
可以對圖像進行色彩和色調的調整。
在下拉菜單中，包含了多個進行色彩和色調調整的命令，下面介紹幾種常用的命令
、曲線
選擇“圖像”“調整”“曲線”命令，可以打開如圖所示的“曲線”對話框。在“曲線”對話框的網(wǎng)格區(qū)中可以調整曲線，用鼠標單擊曲線，會在曲線上出現(xiàn)一個節(jié)點，按住并拖動節(jié)點，可以調整曲線，改變圖像的色彩和色調
2、色彩平衡
使用色彩平衡命令可以在彩色圖像中改變顏色的混合，從而使整個圖像的色彩趨于平衡。選擇“圖像”“調整”“色彩平衡”命令，可以打開“色彩平衡”對話框如圖
在“色彩平衡”中，包含有3個滑塊，每個滑塊上有兩個顏色，它們是3對互補色，增加其中一種顏色，就相當減少另一種顏色。
在“色彩平衡”區(qū)中，用戶可以選擇調整“暗調”、“中間調”、“高光”部分的色彩，若選中“保持亮度”復選框，可以維持圖像的整體亮度不變
3、色相/飽和度
“色相/飽和度”主要用于改變像素的色相及飽和度值，它還可以通過給像素指定新的色相和飽和度，為灰度圖像添加色彩。方法如下：
選擇“圖像”“調整”“色相/飽和度”命令，打開“色相/飽和度”對話框如圖
此主題相關圖片如下：
◆單擊“編輯”右側的按鈕，在彈出的下拉菜單中選擇不同的選項，表示色彩變化的范圍也不同。
◆拖動對話框中的“色相”、“飽和度”、“明度”滑塊，或在文本框中輸入數(shù)值，可以得到不同的色相、飽和度、明度效果。
◆選中對話框右下角的“著色”復選框，可以給一副灰色或黑白圖像添加色彩。如在處理一副彩色圖像時選中此復選框，所有彩色顏色都將變成單一色調。
可能這是我見過的最成功VBnet的BITBLT示例。
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.PictureBox1.Image = Image.FromFile("E:\程序語言\VBpic\輸入文件名.BMP")
End Sub
運行，點擊你的Button2按鈕（窗體Form1上加兩個圖片框和一個命令按鈕搞成Button2）
PictureBox2就有受控的圖片出來了。
用數(shù)組唄。我是用VB6的，不過你會.NET也肯定能看懂。
不是文本文件么？先用Line Input讀每行存入數(shù)組。再把每行數(shù)據(jù)用你的"，"分割，就可以查詢了。我寫個簡單的例子：
'搜索函數(shù)，用法Search(標頭，序號)，返回數(shù)據(jù).
Private Function Search(ByVal Section As String, ByVal Index As Integer) As String
Dim fNum%, Lines%, temp%, Str As String
ReDim Data(0)
fNum = FreeFile()
If Dir("C:\1.txt") = "" Then Exit Function '文件路徑和文件名你自己改
Open "C:\1.txt" For Input As #fNum
Do While Not EOF(fNum)
Lines = Lines + 1 '行數(shù)
Line Input #fNum, Str
ReDim Preserve Data(Lines)
Data(Lines) = Str
Loop
Close #fNum
If Lines 0 Then
Dim tmp() As String
For temp = 1 To UBound(Data)
tmp = Split(Data(temp), "，") '分割
If tmp(0) = Section Then
Search = tmp(Index - 1) '因為從0開始所以-1
Exit Function
End If
Next
End If
End Function
比如你要“gc“開頭的第5個數(shù)據(jù)，就用Search("gc",5)即可返回45。
Private Sub Form_Click()
Dim a() As Integer
ReDim a(5)
a(5) = 50
Print a(5)
Erase a 這時已經(jīng)刪除a了,
Dim b() As Integer
ReDim b(5)
b(5) = 100
Print a(5) 這里你還用a,當然會出錯
Print b(5)
End Sub
重慶分公司
重慶分公司
