有關vb點虐 里的hatchbrush

Imports?System.Drawing.Drawing2D

創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供溧陽網站建設、溧陽做網站、溧陽網站設計、溧陽網站制作等企業(yè)網站建設、網頁設計與制作、溧陽企業(yè)網站模板建站服務，十多年溧陽做網站經驗，不只是建網站，更提供有價值的思路和整體網絡服務。

Public?Class?Form1

Private?Sub?Form1_Click(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?Me.Click

'定義一個?Graphics對象

'調用窗體的CreateGraphics?方法創(chuàng)建?Graphics?對象

Dim?g?As?Graphics

g?=?Me.CreateGraphics

'創(chuàng)建用實心菱形圖案進行繪制，并使用紅色作為前景色，藍色作為背景色的畫筆

Dim?aHatchBrush?As?HatchBrush?=?New?HatchBrush(HatchStyle.SolidDiamond,?Color.Red,?Color.Blue)

'創(chuàng)建矩形的位置和大小

Dim?x?As?Integer?=?0

Dim?y?As?Integer?=?0

Dim?width?As?Integer?=?150

Dim?height?As?Integer?=?200

'調用圖形方法FillRectangle?將定義的矩形繪制到創(chuàng)建Graphics?對象上

g.FillRectangle(aHatchBrush,?x,?y,?width,?height)

End?Sub

End?Class

vb點虐 中輸出空心菱形

這是C#的

Console.WriteLine("請輸入一個數?");

//這里假設只能輸入數字

int number = Convert.ToInt32(Console.ReadLine()) / 2 + 1;

for (int i = 1; i = number; i++)

{

Console.Write(new string(' ', number - i));

Console.WriteLine(new string('*', i * 2 - 1));

}

for (int i = number - 1; i = 1; i--)

{

Console.Write(new string(' ', number - i));

Console.WriteLine(new string('*', i * 2 - 1));

}

vb點虐 ，dim rects as rectangle（）（）=｛a，b，c，d，e，f｝ 我忘了雙小括號的

Dim?a?As?New?System.Drawing.Rectangle(2，1，20,40)

Dim?b?As?New?System.Drawing.Rectangle(4，4，40,30)

Dim?c?As?New?System.Drawing.Rectangle(6，7，60,20)

Dim?d??As?New??System.Drawing.Rectangle(8，10,80,10)

Dim?rectabcd?=?{a,?b,?c,?d}?''數組(a、b、c、d)

Public Sub 調用組()

rectabcd.GetValue(2)?''獲取rectabcd{c}返回值 Object。

……ListRect.Item(2).Height

rectabcd.ToList.Item(0)? ''獲取或設置rectabcd.ToList[a]的值。

End Sub

Public ListRect As List(Of Drawing.Rectangle) = {New Rectangle(0, 0, 10, 10), New Rectangle(10, 1, 20, 20)}.ToList ''ListRect共2個Rectangle。

VB點虐 為什么取消了“l(fā)enb”“midb”這些函數，點虐 又如何通過變通方法來實現(xiàn)？

include QtCore/QCoreApplication

#include QAxObject

#include Windows.h

int main(int argc, char *argv[])

{

//OleInitialize(0);

//CoInitialize(0);

QCoreApplication a(argc, argv);

QAxObject *asdfg = new QAxObject("Excel.Application");

return a.exec();

}

分享文章：vb點虐 菱形 vb編程菱形
文章轉載：http://chinadenli.net/article26/ddgsejg.html

成都網站建設公司_創(chuàng)新互聯(lián)，為您提供全網營銷推廣、做網站、網站維護、App設計、定制開發(fā)、動態(tài)網站

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)