C++ Konvertierung nach Visual Basic

BigBrain · 9. November 2018, 21:14

Hallo,
bin neu hier im Forum, habe aber nur Gutes und echt coole Hilfestellung finden können. Ich benötige dringend Hilfe, mache gerade eine Weiterbildung in Visual Basic. Wir haben eine Aufgabe in dem Kreis, Rechteck und Linie erst nach innen und danach nach aussen animiert werden sollen. Habe die folgende Laufzeit in C++ gefunden. Kann jemad diesen evtl. in VB konvertieren?? Danke.

Spoiler anzeigen

Quellcode

namespace Forms_spielerei {
using namespace System;
using namespace System::ComponentModel;
using namespace System::Collections;
using namespace System::Windows::Forms;
using namespace System::Data;
using namespace System::Drawing;
using namespace System::Drawing::Drawing2D;
/// <summary>
/// Zusammenfassung für MyForm
/// </summary>
public ref class MyForm : public System::Windows::Forms::Form
{
private:
enum class Figur : int
{
Kreis,
Rechteck,
Linie
};
Figur figur;
Int32 linienStaerke;
Color linienFarbe;
Color hintergrundFarbe;
DashStyle linienStil;
HatchStyle fuellStil;
Int32 startGroesse;
Int32 animationWiederholung;
Int32 animationInterval;
Boolean animationAktiv;
Int32 animationLauf;
Boolean animationMinus;
Int32 animationGroesse;
/*
Die Vereinbarung muss als static erfolgen.
Andernfalls kann man dem Array keine Werte zuweisen.
*/
//für die Linienstile
static array <DashStyle>^ auswahlLinienstile = {
DashStyle::Solid,
DashStyle::Dash,
DashStyle::DashDot,
DashStyle::DashDotDot,
DashStyle::Dot};
//für die Hintergrundmuster
static array <HatchStyle> ^auswahlFuellstile = {
HatchStyle::BackwardDiagonal,
HatchStyle::Cross,
HatchStyle::DottedGrid,
HatchStyle::ForwardDiagonal,
HatchStyle::Sphere,
HatchStyle::Vertical,
HatchStyle::Wave,
HatchStyle::ZigZag };
public:
MyForm(void)
{
InitializeComponent();
figur = Figur::Kreis;
}
protected:
/// <summary>Verwendete Ressourcen bereinigen.</summary>
~MyForm()
{
if (components)
{
delete components;
}
}
#pragma region Designer Variables
private: System::Windows::Forms::Panel^ anzeigePanel;
private: System::Windows::Forms::GroupBox^ groupBox2;
private: System::Windows::Forms::GroupBox^ groupBox1;
private: System::Windows::Forms::Label^ label3;
private: System::Windows::Forms::Label^ label2;
private: System::Windows::Forms::ListBox^ listBoxLinieStil;
private: System::Windows::Forms::Label^ label1;
private: System::Windows::Forms::NumericUpDown^ numericUpDownLinieStaerke;
private: System::Windows::Forms::RadioButton^ radioButtonHintergrundMuster;
private: System::Windows::Forms::RadioButton^ radioButtonHintergrundFarbe;
private: System::Windows::Forms::RadioButton^ radioButtonHintergrundOhne;
private: System::Windows::Forms::ListBox^ listBoxHintergrundMuster;
private: System::Windows::Forms::Label^ label5;
private: System::Windows::Forms::Label^ label4;
private: System::Windows::Forms::GroupBox^ groupBox3;
private: System::Windows::Forms::RadioButton^ radioButtonLinie;
private: System::Windows::Forms::RadioButton^ radioButtonKreis;
private: System::Windows::Forms::RadioButton^ radioButtonRechteck;
private: System::Windows::Forms::TrackBar^ groesseTrackbar;
private: System::Windows::Forms::Button^ buttonStart;
private: System::Windows::Forms::Button^ buttonLoeschen;
private: System::Windows::Forms::Button^ buttonBeenden;
private: System::Windows::Forms::Button^ buttonLinieFarbe;
private: System::Windows::Forms::Panel^ panelLinieFarbeVorschau;
private: System::Windows::Forms::ColorDialog^ colorDialog1;
private: System::Windows::Forms::Button^ buttonHintergrundFarbe;
private: System::Windows::Forms::Panel^ panelHintergrundFarbeVorschau;
private: System::Windows::Forms::Label^ label6;
private: System::Windows::Forms::Label^ label7;
private: System::Windows::Forms::Button^ buttonAnimation;
private: System::Windows::Forms::NumericUpDown^ numericUpDownWiederholungen;
private: System::Windows::Forms::NumericUpDown^ numericUpDownDauer;
private: System::Windows::Forms::Timer^ animationTimer;
/// <summary>Erforderliche Designervariable.</summary>
private: System::ComponentModel::IContainer^ components;
#pragma endregion
private:
#pragma region Windows Form Designer generated code
/// <summary>
/// Erforderliche Methode für die Designerunterstützung.
/// Der Inhalt der Methode darf nicht mit dem Code-Editor geändert werden.
/// </summary>
void InitializeComponent(void)
{
this->components = (gcnew System::ComponentModel::Container());
this->anzeigePanel = (gcnew System::Windows::Forms::Panel());
this->groupBox2 = (gcnew System::Windows::Forms::GroupBox());
this->buttonHintergrundFarbe = (gcnew System::Windows::Forms::Button());
this->panelHintergrundFarbeVorschau = (gcnew System::Windows::Forms::Panel());
this->listBoxHintergrundMuster = (gcnew System::Windows::Forms::ListBox());
this->label5 = (gcnew System::Windows::Forms::Label());
this->label4 = (gcnew System::Windows::Forms::Label());
this->radioButtonHintergrundMuster = (gcnew System::Windows::Forms::RadioButton());
this->radioButtonHintergrundFarbe = (gcnew System::Windows::Forms::RadioButton());
this->radioButtonHintergrundOhne = (gcnew System::Windows::Forms::RadioButton());
this->groupBox1 = (gcnew System::Windows::Forms::GroupBox());
this->buttonLinieFarbe = (gcnew System::Windows::Forms::Button());
this->panelLinieFarbeVorschau = (gcnew System::Windows::Forms::Panel());
this->label3 = (gcnew System::Windows::Forms::Label());
this->listBoxLinieStil = (gcnew System::Windows::Forms::ListBox());
this->numericUpDownLinieStaerke = (gcnew System::Windows::Forms::NumericUpDown());
this->label2 = (gcnew System::Windows::Forms::Label());
this->label1 = (gcnew System::Windows::Forms::Label());
this->groupBox3 = (gcnew System::Windows::Forms::GroupBox());
this->radioButtonLinie = (gcnew System::Windows::Forms::RadioButton());
this->radioButtonKreis = (gcnew System::Windows::Forms::RadioButton());
this->radioButtonRechteck = (gcnew System::Windows::Forms::RadioButton());
this->groesseTrackbar = (gcnew System::Windows::Forms::TrackBar());
this->buttonStart = (gcnew System::Windows::Forms::Button());
this->buttonLoeschen = (gcnew System::Windows::Forms::Button());
this->buttonBeenden = (gcnew System::Windows::Forms::Button());
this->colorDialog1 = (gcnew System::Windows::Forms::ColorDialog());
this->label6 = (gcnew System::Windows::Forms::Label());
this->label7 = (gcnew System::Windows::Forms::Label());
this->buttonAnimation = (gcnew System::Windows::Forms::Button());
this->numericUpDownWiederholungen = (gcnew System::Windows::Forms::NumericUpDown());
this->numericUpDownDauer = (gcnew System::Windows::Forms::NumericUpDown());
this->animationTimer = (gcnew System::Windows::Forms::Timer(this->components));
this->groupBox2->SuspendLayout();
this->groupBox1->SuspendLayout();
(cli::safe_cast<System::ComponentModel::ISupportInitialize^>(this->numericUpDownLinieStaerke))->BeginInit();
this->groupBox3->SuspendLayout();
(cli::safe_cast<System::ComponentModel::ISupportInitialize^>(this->groesseTrackbar))->BeginInit();
(cli::safe_cast<System::ComponentModel::ISupportInitialize^>(this->numericUpDownWiederholungen))->BeginInit();
(cli::safe_cast<System::ComponentModel::ISupportInitialize^>(this->numericUpDownDauer))->BeginInit();
this->SuspendLayout();
//
// anzeigePanel
//
this->anzeigePanel->BackColor = System::Drawing::Color::White;
this->anzeigePanel->BorderStyle = System::Windows::Forms::BorderStyle::FixedSingle;
this->anzeigePanel->Location = System::Drawing::Point(16, 15);
this->anzeigePanel->Margin = System::Windows::Forms::Padding(4);
this->anzeigePanel->Name = L"anzeigePanel";
this->anzeigePanel->Size = System::Drawing::Size(399, 369);
this->anzeigePanel->TabIndex = 0;
this->anzeigePanel->Paint += gcnew System::Windows::Forms::PaintEventHandler(this, &MyForm::anzeigePanel_Paint);
//
// groupBox2
//
this->groupBox2->Controls->Add(this->buttonHintergrundFarbe);
this->groupBox2->Controls->Add(this->panelHintergrundFarbeVorschau);
this->groupBox2->Controls->Add(this->listBoxHintergrundMuster);
this->groupBox2->Controls->Add(this->label5);
this->groupBox2->Controls->Add(this->label4);
this->groupBox2->Controls->Add(this->radioButtonHintergrundMuster);
this->groupBox2->Controls->Add(this->radioButtonHintergrundFarbe);
this->groupBox2->Controls->Add(this->radioButtonHintergrundOhne);
this->groupBox2->Location = System::Drawing::Point(436, 158);
this->groupBox2->Margin = System::Windows::Forms::Padding(4);
this->groupBox2->Name = L"groupBox2";
this->groupBox2->Padding = System::Windows::Forms::Padding(4);
this->groupBox2->Size = System::Drawing::Size(267, 133);
this->groupBox2->TabIndex = 2;
this->groupBox2->TabStop = false;
this->groupBox2->Text = L"Hintergrund";
//
// buttonHintergrundFarbe
//
this->buttonHintergrundFarbe->Location = System::Drawing::Point(139, 52);
this->buttonHintergrundFarbe->Margin = System::Windows::Forms::Padding(4);
this->buttonHintergrundFarbe->Name = L"buttonHintergrundFarbe";
this->buttonHintergrundFarbe->Size = System::Drawing::Size(40, 28);
this->buttonHintergrundFarbe->TabIndex = 7;
this->buttonHintergrundFarbe->Text = L"...";
this->buttonHintergrundFarbe->UseVisualStyleBackColor = true;
this->buttonHintergrundFarbe->Click += gcnew System::EventHandler(this, &MyForm::buttonHintergrundFarbe_Click);
//
// panelHintergrundFarbeVorschau
//
this->panelHintergrundFarbeVorschau->BackColor = System::Drawing::Color::White;
this->panelHintergrundFarbeVorschau->Location = System::Drawing::Point(83, 49);
this->panelHintergrundFarbeVorschau->Margin = System::Windows::Forms::Padding(4);
this->panelHintergrundFarbeVorschau->Name = L"panelHintergrundFarbeVorschau";
this->panelHintergrundFarbeVorschau->Size = System::Drawing::Size(36, 30);
this->panelHintergrundFarbeVorschau->TabIndex = 8;
this->panelHintergrundFarbeVorschau->DoubleClick += gcnew System::EventHandler(this, &MyForm::panelHintergrundFarbeVorschau_DoubleClick);
//
// listBoxHintergrundMuster
//
this->listBoxHintergrundMuster->DrawMode = System::Windows::Forms::DrawMode::OwnerDrawFixed;
this->listBoxHintergrundMuster->FormattingEnabled = true;
this->listBoxHintergrundMuster->Location = System::Drawing::Point(77, 85);
this->listBoxHintergrundMuster->Margin = System::Windows::Forms::Padding(4);
this->listBoxHintergrundMuster->Name = L"listBoxHintergrundMuster";
this->listBoxHintergrundMuster->Size = System::Drawing::Size(160, 30);
this->listBoxHintergrundMuster->TabIndex = 4;
this->listBoxHintergrundMuster->DrawItem += gcnew System::Windows::Forms::DrawItemEventHandler(this, &MyForm::listBoxHintergrundMuster_DrawItem);
this->listBoxHintergrundMuster->SelectedIndexChanged += gcnew System::EventHandler(this, &MyForm::listBoxHintergrundMuster_SelectedIndexChanged);
//
// label5
//
this->label5->Location = System::Drawing::Point(8, 85);
this->label5->Margin = System::Windows::Forms::Padding(4, 0, 4, 0);
this->label5->Name = L"label5";
this->label5->Size = System::Drawing::Size(55, 26);
this->label5->TabIndex = 5;
this->label5->Text = L"Stil:";
//
// label4
//
this->label4->Location = System::Drawing::Point(8, 52);
this->label4->Margin = System::Windows::Forms::Padding(4, 0, 4, 0);
this->label4->Name = L"label4";
this->label4->Size = System::Drawing::Size(55, 26);
this->label4->TabIndex = 4;
this->label4->Text = L"Farbe:";
//
// radioButtonHintergrundMuster
//
this->radioButtonHintergrundMuster->AutoSize = true;
this->radioButtonHintergrundMuster->Location = System::Drawing::Point(165, 23);
this->radioButtonHintergrundMuster->Margin = System::Windows::Forms::Padding(4);
this->radioButtonHintergrundMuster->Name = L"radioButtonHintergrundMuster";
this->radioButtonHintergrundMuster->Size = System::Drawing::Size(72, 21);
this->radioButtonHintergrundMuster->TabIndex = 2;
this->radioButtonHintergrundMuster->TabStop = true;
this->radioButtonHintergrundMuster->Text = L"Muster";
this->radioButtonHintergrundMuster->UseVisualStyleBackColor = true;
this->radioButtonHintergrundMuster->CheckedChanged += gcnew System::EventHandler(this, &MyForm::hintergrund_CheckedChanged);
//
// radioButtonHintergrundFarbe
//
this->radioButtonHintergrundFarbe->AutoSize = true;
this->radioButtonHintergrundFarbe->Location = System::Drawing::Point(89, 23);
this->radioButtonHintergrundFarbe->Margin = System::Windows::Forms::Padding(4);
this->radioButtonHintergrundFarbe->Name = L"radioButtonHintergrundFarbe";
this->radioButtonHintergrundFarbe->Size = System::Drawing::Size(66, 21);
this->radioButtonHintergrundFarbe->TabIndex = 1;
this->radioButtonHintergrundFarbe->TabStop = true;
this->radioButtonHintergrundFarbe->Text = L"Farbe";
this->radioButtonHintergrundFarbe->UseVisualStyleBackColor = true;
this->radioButtonHintergrundFarbe->CheckedChanged += gcnew System::EventHandler(this, &MyForm::hintergrund_CheckedChanged);
//
// radioButtonHintergrundOhne
//
this->radioButtonHintergrundOhne->AutoSize = true;
this->radioButtonHintergrundOhne->Checked = true;
this->radioButtonHintergrundOhne->Location = System::Drawing::Point(12, 23);
this->radioButtonHintergrundOhne->Margin = System::Windows::Forms::Padding(4);
this->radioButtonHintergrundOhne->Name = L"radioButtonHintergrundOhne";
this->radioButtonHintergrundOhne->Size = System::Drawing::Size(61, 21);
this->radioButtonHintergrundOhne->TabIndex = 0;
this->radioButtonHintergrundOhne->TabStop = true;
this->radioButtonHintergrundOhne->Text = L"ohne";
this->radioButtonHintergrundOhne->UseVisualStyleBackColor = true;
this->radioButtonHintergrundOhne->CheckedChanged += gcnew System::EventHandler(this, &MyForm::hintergrund_CheckedChanged);
//
// groupBox1
//
this->groupBox1->Controls->Add(this->buttonLinieFarbe);
this->groupBox1->Controls->Add(this->panelLinieFarbeVorschau);
this->groupBox1->Controls->Add(this->label3);
this->groupBox1->Controls->Add(this->listBoxLinieStil);
this->groupBox1->Controls->Add(this->numericUpDownLinieStaerke);
this->groupBox1->Controls->Add(this->label2);
this->groupBox1->Controls->Add(this->label1);
this->groupBox1->Location = System::Drawing::Point(436, 15);
this->groupBox1->Margin = System::Windows::Forms::Padding(4);
this->groupBox1->Name = L"groupBox1";
this->groupBox1->Padding = System::Windows::Forms::Padding(4);
this->groupBox1->Size = System::Drawing::Size(267, 135);
this->groupBox1->TabIndex = 1;
this->groupBox1->TabStop = false;
this->groupBox1->Text = L"Linie";
//
// buttonLinieFarbe
//
this->buttonLinieFarbe->Location = System::Drawing::Point(139, 21);
this->buttonLinieFarbe->Margin = System::Windows::Forms::Padding(4);
this->buttonLinieFarbe->Name = L"buttonLinieFarbe";
this->buttonLinieFarbe->Size = System::Drawing::Size(40, 28);
this->buttonLinieFarbe->TabIndex = 0;
this->buttonLinieFarbe->Text = L"...";
this->buttonLinieFarbe->UseVisualStyleBackColor = true;
this->buttonLinieFarbe->Click += gcnew System::EventHandler(this, &MyForm::buttonLinieFarbe_Click);
//
// panelLinieFarbeVorschau
//
this->panelLinieFarbeVorschau->BackColor = System::Drawing::Color::Black;
this->panelLinieFarbeVorschau->Location = System::Drawing::Point(83, 18);
this->panelLinieFarbeVorschau->Margin = System::Windows::Forms::Padding(4);
this->panelLinieFarbeVorschau->Name = L"panelLinieFarbeVorschau";
this->panelLinieFarbeVorschau->Size = System::Drawing::Size(36, 30);
this->panelLinieFarbeVorschau->TabIndex = 6;
this->panelLinieFarbeVorschau->DoubleClick += gcnew System::EventHandler(this, &MyForm::panelLinieFarbeVorschau_DoubleClick);
//
// label3
//
this->label3->Location = System::Drawing::Point(8, 100);
this->label3->Margin = System::Windows::Forms::Padding(4, 0, 4, 0);
this->label3->Name = L"label3";
this->label3->Size = System::Drawing::Size(55, 26);
this->label3->TabIndex = 5;
this->label3->Text = L"Stärke:";
//
// listBoxLinieStil
//
this->listBoxLinieStil->DrawMode = System::Windows::Forms::DrawMode::OwnerDrawFixed;
this->listBoxLinieStil->FormattingEnabled = true;
this->listBoxLinieStil->Location = System::Drawing::Point(77, 57);
this->listBoxLinieStil->Margin = System::Windows::Forms::Padding(4);
this->listBoxLinieStil->Name = L"listBoxLinieStil";
this->listBoxLinieStil->Size = System::Drawing::Size(160, 30);
this->listBoxLinieStil->TabIndex = 4;
this->listBoxLinieStil->DrawItem += gcnew System::Windows::Forms::DrawItemEventHandler(this, &MyForm::listBoxLinieStil_DrawItem);
this->listBoxLinieStil->SelectedIndexChanged += gcnew System::EventHandler(this, &MyForm::listBoxLinieStil_SelectedIndexChanged);
//
// numericUpDownLinieStaerke
//
this->numericUpDownLinieStaerke->Location = System::Drawing::Point(77, 101);
this->numericUpDownLinieStaerke->Margin = System::Windows::Forms::Padding(4);
this->numericUpDownLinieStaerke->Maximum = System::Decimal(gcnew cli::array< System::Int32 >(4) { 20, 0, 0, 0 });
this->numericUpDownLinieStaerke->Minimum = System::Decimal(gcnew cli::array< System::Int32 >(4) { 1, 0, 0, 0 });
this->numericUpDownLinieStaerke->Name = L"numericUpDownLinieStaerke";
this->numericUpDownLinieStaerke->Size = System::Drawing::Size(161, 22);
this->numericUpDownLinieStaerke->TabIndex = 5;
this->numericUpDownLinieStaerke->Value = System::Decimal(gcnew cli::array< System::Int32 >(4) { 1, 0, 0, 0 });
this->numericUpDownLinieStaerke->ValueChanged += gcnew System::EventHandler(this, &MyForm::numericUpDownLinieStaerke_ValueChanged);
//
// label2
//
this->label2->Location = System::Drawing::Point(8, 57);
this->label2->Margin = System::Windows::Forms::Padding(4, 0, 4, 0);
this->label2->Name = L"label2";
this->label2->Size = System::Drawing::Size(32, 26);
this->label2->TabIndex = 4;
this->label2->Text = L"Stil:";
//
// label1
//
this->label1->Location = System::Drawing::Point(8, 23);
this->label1->Margin = System::Windows::Forms::Padding(4, 0, 4, 0);
this->label1->Name = L"label1";
this->label1->Size = System::Drawing::Size(49, 26);
this->label1->TabIndex = 3;
this->label1->Text = L"Farbe:";
//
// groupBox3
//
this->groupBox3->Controls->Add(this->radioButtonLinie);
this->groupBox3->Controls->Add(this->radioButtonKreis);
this->groupBox3->Controls->Add(this->radioButtonRechteck);
this->groupBox3->Location = System::Drawing::Point(436, 298);
this->groupBox3->Margin = System::Windows::Forms::Padding(4);
this->groupBox3->Name = L"groupBox3";
this->groupBox3->Padding = System::Windows::Forms::Padding(4);
this->groupBox3->Size = System::Drawing::Size(267, 60);
this->groupBox3->TabIndex = 3;
this->groupBox3->TabStop = false;
this->groupBox3->Text = L"Figur";
//
// radioButtonLinie
//
this->radioButtonLinie->AutoSize = true;
this->radioButtonLinie->Location = System::Drawing::Point(180, 23);
this->radioButtonLinie->Margin = System::Windows::Forms::Padding(4);
this->radioButtonLinie->Name = L"radioButtonLinie";
this->radioButtonLinie->Size = System::Drawing::Size(59, 21);
this->radioButtonLinie->TabIndex = 6;
this->radioButtonLinie->TabStop = true;
this->radioButtonLinie->Text = L"Linie";
this->radioButtonLinie->UseVisualStyleBackColor = true;
this->radioButtonLinie->CheckedChanged += gcnew System::EventHandler(this, &MyForm::anzeigeFigur_CheckedChanged);
//
// radioButtonKreis
//
this->radioButtonKreis->AutoSize = true;
this->radioButtonKreis->Checked = true;
this->radioButtonKreis->Location = System::Drawing::Point(12, 23);
this->radioButtonKreis->Margin = System::Windows::Forms::Padding(4);
this->radioButtonKreis->Name = L"radioButtonKreis";
this->radioButtonKreis->Size = System::Drawing::Size(61, 21);
this->radioButtonKreis->TabIndex = 4;
this->radioButtonKreis->TabStop = true;
this->radioButtonKreis->Text = L"Kreis";
this->radioButtonKreis->UseVisualStyleBackColor = true;
this->radioButtonKreis->CheckedChanged += gcnew System::EventHandler(this, &MyForm::anzeigeFigur_CheckedChanged);
//
// radioButtonRechteck
//
this->radioButtonRechteck->AutoSize = true;
this->radioButtonRechteck->Location = System::Drawing::Point(83, 23);
this->radioButtonRechteck->Margin = System::Windows::Forms::Padding(4);
this->radioButtonRechteck->Name = L"radioButtonRechteck";
this->radioButtonRechteck->Size = System::Drawing::Size(88, 21);
this->radioButtonRechteck->TabIndex = 5;
this->radioButtonRechteck->TabStop = true;
this->radioButtonRechteck->Text = L"Rechteck";
this->radioButtonRechteck->UseVisualStyleBackColor = true;
this->radioButtonRechteck->CheckedChanged += gcnew System::EventHandler(this, &MyForm::anzeigeFigur_CheckedChanged);
//
// groesseTrackbar
//
this->groesseTrackbar->LargeChange = 1;
this->groesseTrackbar->Location = System::Drawing::Point(436, 366);
this->groesseTrackbar->Margin = System::Windows::Forms::Padding(4);
this->groesseTrackbar->Maximum = 3;
this->groesseTrackbar->Minimum = 1;
this->groesseTrackbar->Name = L"groesseTrackbar";
this->groesseTrackbar->Size = System::Drawing::Size(267, 56);
this->groesseTrackbar->TabIndex = 4;
this->groesseTrackbar->Value = 2;
this->groesseTrackbar->Scroll += gcnew System::EventHandler(this, &MyForm::groesseTrackbar_Scroll);
//
// buttonStart
//
this->buttonStart->Location = System::Drawing::Point(436, 426);
this->buttonStart->Margin = System::Windows::Forms::Padding(4);
this->buttonStart->Name = L"buttonStart";
this->buttonStart->Size = System::Drawing::Size(100, 28);
this->buttonStart->TabIndex = 5;
this->buttonStart->Text = L"Los geht\'s";
this->buttonStart->UseVisualStyleBackColor = true;
this->buttonStart->Click += gcnew System::EventHandler(this, &MyForm::buttonStart_Click);
//
// buttonLoeschen
//
this->buttonLoeschen->Location = System::Drawing::Point(544, 426);
this->buttonLoeschen->Margin = System::Windows::Forms::Padding(4);
this->buttonLoeschen->Name = L"buttonLoeschen";
this->buttonLoeschen->Size = System::Drawing::Size(100, 28);
this->buttonLoeschen->TabIndex = 6;
this->buttonLoeschen->Text = L"Löschen";
this->buttonLoeschen->UseVisualStyleBackColor = true;
this->buttonLoeschen->Click += gcnew System::EventHandler(this, &MyForm::buttonLoeschen_Click);
//
// buttonBeenden
//
this->buttonBeenden->Location = System::Drawing::Point(652, 426);
this->buttonBeenden->Margin = System::Windows::Forms::Padding(4);
this->buttonBeenden->Name = L"buttonBeenden";
this->buttonBeenden->Size = System::Drawing::Size(100, 28);
this->buttonBeenden->TabIndex = 7;
this->buttonBeenden->Text = L"Beenden";
this->buttonBeenden->UseVisualStyleBackColor = true;
this->buttonBeenden->Click += gcnew System::EventHandler(this, &MyForm::buttonBeenden_Click);
//
// label6
//
this->label6->Location = System::Drawing::Point(12, 402);
this->label6->Margin = System::Windows::Forms::Padding(4, 0, 4, 0);
this->label6->Name = L"label6";
this->label6->Size = System::Drawing::Size(117, 25);
this->label6->TabIndex = 8;
this->label6->Text = L"Wiederholungen:";
//
// label7
//
this->label7->Location = System::Drawing::Point(12, 434);
this->label7->Margin = System::Windows::Forms::Padding(4, 0, 4, 0);
this->label7->Name = L"label7";
this->label7->Size = System::Drawing::Size(117, 25);
this->label7->TabIndex = 9;
this->label7->Text = L"Dauer:";
//
// buttonAnimation
//
this->buttonAnimation->Location = System::Drawing::Point(227, 426);
this->buttonAnimation->Margin = System::Windows::Forms::Padding(4);
this->buttonAnimation->Name = L"buttonAnimation";
this->buttonAnimation->Size = System::Drawing::Size(100, 28);
this->buttonAnimation->TabIndex = 10;
this->buttonAnimation->Text = L"Animation";
this->buttonAnimation->UseVisualStyleBackColor = true;
this->buttonAnimation->Click += gcnew System::EventHandler(this, &MyForm::buttonAnimation_Click);
//
// numericUpDownWiederholungen
//
this->numericUpDownWiederholungen->Location = System::Drawing::Point(137, 402);
this->numericUpDownWiederholungen->Margin = System::Windows::Forms::Padding(4);
this->numericUpDownWiederholungen->Maximum = System::Decimal(gcnew cli::array< System::Int32 >(4) { 10, 0, 0, 0 });
this->numericUpDownWiederholungen->Minimum = System::Decimal(gcnew cli::array< System::Int32 >(4) { 1, 0, 0, 0 });
this->numericUpDownWiederholungen->Name = L"numericUpDownWiederholungen";
this->numericUpDownWiederholungen->Size = System::Drawing::Size(63, 22);
this->numericUpDownWiederholungen->TabIndex = 11;
this->numericUpDownWiederholungen->Value = System::Decimal(gcnew cli::array< System::Int32 >(4) { 1, 0, 0, 0 });
this->numericUpDownWiederholungen->ValueChanged += gcnew System::EventHandler(this, &MyForm::numericUpDownWiederholungen_ValueChanged);
//
// numericUpDownDauer
//
this->numericUpDownDauer->Location = System::Drawing::Point(137, 434);
this->numericUpDownDauer->Margin = System::Windows::Forms::Padding(4);
this->numericUpDownDauer->Maximum = System::Decimal(gcnew cli::array< System::Int32 >(4) { 15, 0, 0, 0 });
this->numericUpDownDauer->Minimum = System::Decimal(gcnew cli::array< System::Int32 >(4) { 1, 0, 0, 0 });
this->numericUpDownDauer->Name = L"numericUpDownDauer";
this->numericUpDownDauer->Size = System::Drawing::Size(63, 22);
this->numericUpDownDauer->TabIndex = 12;
this->numericUpDownDauer->Value = System::Decimal(gcnew cli::array< System::Int32 >(4) { 1, 0, 0, 0 });
this->numericUpDownDauer->ValueChanged += gcnew System::EventHandler(this, &MyForm::numericUpDownDauer_ValueChanged);
//
// animationTimer
//
this->animationTimer->Tick += gcnew System::EventHandler(this, &MyForm::animationTimer_Tick);
//
// MyForm
//
this->AutoScaleDimensions = System::Drawing::SizeF(8, 16);
this->AutoScaleMode = System::Windows::Forms::AutoScaleMode::Font;
this->ClientSize = System::Drawing::Size(779, 469);
this->Controls->Add(this->numericUpDownDauer);
this->Controls->Add(this->numericUpDownWiederholungen);
this->Controls->Add(this->buttonAnimation);
this->Controls->Add(this->label7);
this->Controls->Add(this->label6);
this->Controls->Add(this->buttonBeenden);
this->Controls->Add(this->buttonLoeschen);
this->Controls->Add(this->buttonStart);
this->Controls->Add(this->groesseTrackbar);
this->Controls->Add(this->groupBox3);
this->Controls->Add(this->groupBox2);
this->Controls->Add(this->groupBox1);
this->Controls->Add(this->anzeigePanel);
this->Margin = System::Windows::Forms::Padding(4);
this->MaximizeBox = false;
this->MinimizeBox = false;
this->Name = L"MyForm";
this->Text = L"Eine Spielerei";
this->Load += gcnew System::EventHandler(this, &MyForm::MyForm_Load);
this->groupBox2->ResumeLayout(false);
this->groupBox2->PerformLayout();
this->groupBox1->ResumeLayout(false);
(cli::safe_cast<System::ComponentModel::ISupportInitialize^>(this->numericUpDownLinieStaerke))->EndInit();
this->groupBox3->ResumeLayout(false);
this->groupBox3->PerformLayout();
(cli::safe_cast<System::ComponentModel::ISupportInitialize^>(this->groesseTrackbar))->EndInit();
(cli::safe_cast<System::ComponentModel::ISupportInitialize^>(this->numericUpDownWiederholungen))->EndInit();
(cli::safe_cast<System::ComponentModel::ISupportInitialize^>(this->numericUpDownDauer))->EndInit();
this->ResumeLayout(false);
this->PerformLayout();
}
#pragma endregion
private: System::Void buttonBeenden_Click(System::Object^ sender, System::EventArgs^ e)
{
Close();
}
private: System::Void MyForm_Load(System::Object^ sender, System::EventArgs^ e)
{
startGroesse = 100;
linienStaerke = 1;
linienFarbe = Color::Black;
hintergrundFarbe = Color::White;
radioButtonKreis->Checked = true;
//die Einträge für die Linienstile erzeugen
for each (Drawing2D::DashStyle element in auswahlLinienstile)
listBoxLinieStil->Items->Add("");
listBoxLinieStil->SelectedIndex = 0;
//und für die Hintergrundmuster
for each (Drawing2D::HatchStyle element in auswahlFuellstile)
listBoxHintergrundMuster->Items->Add("");
listBoxHintergrundMuster->SelectedIndex = -1;
}
private: System::Void buttonLinieFarbe_Click(System::Object^ sender, System::EventArgs^ e)
{
colorDialog1->Color = panelLinieFarbeVorschau->BackColor;
if (colorDialog1->ShowDialog() == Windows::Forms::DialogResult::OK)
{
panelLinieFarbeVorschau->BackColor = colorDialog1->Color;
linienFarbe = colorDialog1->Color;
InvalidateAnzeigePanel();
}
}
private: System::Void panelLinieFarbeVorschau_DoubleClick(System::Object^ sender, System::EventArgs^ e)
{
buttonLinieFarbe_Click(sender, e);
}
private: System::Void buttonHintergrundFarbe_Click(System::Object^ sender, System::EventArgs^ e)
{
colorDialog1->Color = panelHintergrundFarbeVorschau->BackColor;
if (colorDialog1->ShowDialog() == Windows::Forms::DialogResult::OK)
{
panelHintergrundFarbeVorschau->BackColor = colorDialog1->Color;
hintergrundFarbe = colorDialog1->Color;
if (radioButtonHintergrundOhne->Checked)
{
radioButtonHintergrundFarbe->Checked = true;
}
InvalidateAnzeigePanel();
}
}
private: System::Void panelHintergrundFarbeVorschau_DoubleClick(System::Object^ sender, System::EventArgs^ e)
{
buttonHintergrundFarbe_Click(sender, e);
}
private: System::Void listBoxLinieStil_SelectedIndexChanged(System::Object^ sender, System::EventArgs^ e)
{
if (listBoxLinieStil->SelectedIndex >= 0)
{
linienStil = auswahlLinienstile[listBoxLinieStil->SelectedIndex];
}
else
{
linienStil = DashStyle::Solid;
}
InvalidateAnzeigePanel();
}
private: System::Void listBoxLinieStil_DrawItem(System::Object^ sender, System::Windows::Forms::DrawItemEventArgs^ e)
{
Int32 y = (e->Bounds.Top + e->Bounds.Bottom) / 2;
e->DrawBackground();
Pen ^boxStift = gcnew Pen(Color::Black);
boxStift->DashStyle = auswahlLinienstile[e->Index];
e->Graphics->DrawLine(boxStift, e->Bounds.Left + 1, y, e->Bounds.Right - 1, y);
delete boxStift;
}
private: System::Void numericUpDownLinieStaerke_ValueChanged(System::Object^ sender, System::EventArgs^ e)
{
linienStaerke = (Int32)numericUpDownLinieStaerke->Value;
InvalidateAnzeigePanel();
}
private: System::Void listBoxHintergrundMuster_SelectedIndexChanged(System::Object^ sender, System::EventArgs^ e)
{
if (listBoxHintergrundMuster->SelectedIndex >= 0)
{
fuellStil = auswahlFuellstile[listBoxHintergrundMuster->SelectedIndex];
this->radioButtonHintergrundMuster->Checked = true;
}
else
{
this->radioButtonHintergrundOhne->Checked = true;
fuellStil = auswahlFuellstile[0];
}
InvalidateAnzeigePanel();
}
private: System::Void listBoxHintergrundMuster_DrawItem(System::Object^ sender, System::Windows::Forms::DrawItemEventArgs^ e)
{
e->DrawBackground();
Drawing2D::HatchBrush ^boxPinsel = gcnew Drawing2D::HatchBrush(auswahlFuellstile[e->Index], Color::Black, Color::White);
e->Graphics->FillRectangle(boxPinsel, e->Bounds.Left + 1, e->Bounds.Top + 1, e->Bounds.Width - 1, e->Bounds.Height - 1);
delete boxPinsel;
}
private: System::Void hintergrund_CheckedChanged(System::Object^ sender, System::EventArgs^ e)
{
InvalidateAnzeigePanel();
}
private: System::Void anzeigeFigur_CheckedChanged(System::Object^ sender, System::EventArgs^ e)
{
if (radioButtonLinie->Checked)
{
figur = Figur::Linie;
}
else if (radioButtonRechteck->Checked)
{
figur = Figur::Rechteck;
}
else
{
figur = Figur::Kreis;
}
InvalidateAnzeigePanel();
}
private: System::Void groesseTrackbar_Scroll(System::Object^ sender, System::EventArgs^ e)
{
//die Größe der Figur ermitteln
switch (groesseTrackbar->Value)
{
case 1:
startGroesse = 125;
break;
case 2:
startGroesse = 100;
break;
case 3:
default:
startGroesse = 75;
break;
}
InvalidateAnzeigePanel();
}
private: System::Void numericUpDownDauer_ValueChanged(System::Object^ sender, System::EventArgs^ e)
{
animationInterval = (Int32)numericUpDownDauer->Value * 100;
}
private: System::Void numericUpDownWiederholungen_ValueChanged(System::Object^ sender, System::EventArgs^ e)
{
animationWiederholung = (Int32)numericUpDownWiederholungen->Value;
}
private: System::Void buttonLoeschen_Click(System::Object^ sender, System::EventArgs^ e)
{
//die Zeichenfläche löschen
Graphics^ g = this->anzeigePanel->CreateGraphics();
g->Clear(anzeigePanel->BackColor);
delete g;
}
private: System::Void buttonStart_Click(System::Object^ sender, System::EventArgs^ e)
{
}
private: System::Void buttonAnimation_Click(System::Object^ sender, System::EventArgs^ e)
{
animationInterval = (Int32)numericUpDownDauer->Value * 100;
animationWiederholung = (Int32)numericUpDownWiederholungen->Value;
animationAktiv = !animationAktiv;
animationTimer->Interval = animationInterval;
animationTimer->Enabled = animationAktiv;
animationLauf = animationWiederholung;
animationMinus = false;
animationGroesse = startGroesse;
this->anzeigePanel->Invalidate();
}
private: System::Void animationTimer_Tick(System::Object^ sender, System::EventArgs^ e)
{
Int32 minGroesse = startGroesse;
Int32 maxGroesse = Math::Min(this->anzeigePanel->ClientSize.Width, this->anzeigePanel->ClientSize.Height);
if (figur == Figur::Rechteck)
{
minGroesse = 0;
maxGroesse /= 2;
}
if (animationMinus)
{
animationGroesse--;
if (animationGroesse <= minGroesse)
{
animationMinus = false;
//Neuer Durchlauf?
animationLauf--;
if (animationLauf <= 0)
{
animationAktiv = false;
animationTimer->Enabled = false;
}
}
}
else
{
animationGroesse++;
if (animationGroesse >= maxGroesse)
{
animationMinus = true;
}
}
System::Diagnostics::Debug::WriteLine("Animation: {0} / {1}", animationGroesse, animationMinus);
this->anzeigePanel->Invalidate();
}
private: System::Void InvalidateAnzeigePanel()
{
if (!animationAktiv)
{
this->anzeigePanel->Invalidate();
}
}
private: System::Void anzeigePanel_Paint(System::Object^ sender, System::Windows::Forms::PaintEventArgs^ e)
{
Graphics^ zeichenflaeche = e->Graphics;
zeichenflaeche->SmoothingMode = SmoothingMode::AntiAlias;
Pen^ stift = gcnew Pen(linienFarbe);
SolidBrush^ pinsel = gcnew SolidBrush(hintergrundFarbe);
stift->Width = linienStaerke;
stift->DashStyle = linienStil;
// Zeichenrechteck bestimmen, Vorschau fix / Animation fliessend
Int32 offset = startGroesse;
if (animationAktiv)
{
offset = animationGroesse;
}
Rectangle zeichenRectangle = Rectangle::Inflate(anzeigePanel->ClientRectangle, -offset, -offset);
System::Diagnostics::Debug::WriteLine("Größe: {0}", zeichenRectangle);
// Figur zeichnen
switch (figur)
{
case Figur::Kreis:
default:
if (radioButtonHintergrundFarbe->Checked)
{
zeichenflaeche->FillEllipse(pinsel, zeichenRectangle);
}
else if (radioButtonHintergrundMuster->Checked)
{
Drawing2D::HatchBrush ^musterPinsel = gcnew Drawing2D::HatchBrush(fuellStil, linienFarbe, hintergrundFarbe);
zeichenflaeche->FillEllipse(musterPinsel, zeichenRectangle);
delete musterPinsel;
}
zeichenflaeche->DrawEllipse(stift, zeichenRectangle);
break;
case Figur::Rechteck:
if (radioButtonHintergrundFarbe->Checked)
{
zeichenflaeche->FillRectangle(pinsel, zeichenRectangle);
}
else if (radioButtonHintergrundMuster->Checked)
{
Drawing2D::HatchBrush ^musterPinsel = gcnew Drawing2D::HatchBrush(fuellStil, linienFarbe, hintergrundFarbe);
zeichenflaeche->FillRectangle(musterPinsel, zeichenRectangle);
delete musterPinsel;
}
zeichenflaeche->DrawRectangle(stift, zeichenRectangle);
break;
case Figur::Linie:
Int32 center = (zeichenRectangle.Top + zeichenRectangle.Bottom - linienStaerke) / 2;
zeichenflaeche->DrawLine(stift,
Point(zeichenRectangle.Left, center),
Point(zeichenRectangle.Right, center));
break;
}
//Stift und Pinsel löschen
delete stift;
delete pinsel;
}
};
}

Codetags und Spoiler eingefügt. ~Trade

RodFromGermany · 10. November 2018, 07:23

@BigBrain Willkommen im Forum. :thumbup:

Sinnvoll ist es, diesen CLI-Code zunächst nach C# zu übersetzen und dann im nächsten Schritt nach VB.NET.
Der erste Schritt (C++ => C#) geht intuitiv, der zweite über einen Automaten.

Foem

C#-Quellcode

using System;
using System.Drawing;
using System.Drawing.Drawing2D;
using System.Windows.Forms;
namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
enum Figur : int
{
Kreis,
Rechteck,
Linie
}
Figur figur;
Int32 linienStaerke;
Color linienFarbe;
Color hintergrundFarbe;
DashStyle linienStil;
HatchStyle fuellStil;
Int32 startGroesse;
Int32 animationWiederholung;
Int32 animationInterval;
Boolean animationAktiv;
Int32 animationLauf;
Boolean animationMinus;
Int32 animationGroesse;
/*
Die Vereinbarung muss als static erfolgen.
Andernfalls kann man dem Array keine Werte zuweisen.
*/
//für die Linienstile
static DashStyle[] auswahlLinienstile = {
DashStyle.Solid,
DashStyle.Dash,
DashStyle.DashDot,
DashStyle.DashDotDot,
DashStyle.Dot};
//für die Hintergrundmuster
static HatchStyle[] auswahlFuellstile = {
HatchStyle.BackwardDiagonal,
HatchStyle.Cross,
HatchStyle.DottedGrid,
HatchStyle.ForwardDiagonal,
HatchStyle.Sphere,
HatchStyle.Vertical,
HatchStyle.Wave,
HatchStyle.ZigZag };
public Form1()
{
InitializeComponent();
figur = Figur.Kreis;
}
private void buttonBeenden_Click(System.Object sender, System.EventArgs e)
{
Close();
}
private void MyForm_Load(System.Object sender, System.EventArgs e)
{
startGroesse = 100;
linienStaerke = 1;
linienFarbe = Color.Black;
hintergrundFarbe = Color.White;
radioButtonKreis.Checked = true;
//die Einträge für die Linienstile erzeugen
foreach (DashStyle element in auswahlLinienstile)
listBoxLinieStil.Items.Add("");
listBoxLinieStil.SelectedIndex = 0;
//und für die Hintergrundmuster
foreach (HatchStyle element in auswahlFuellstile)
listBoxHintergrundMuster.Items.Add("");
listBoxHintergrundMuster.SelectedIndex = -1;
}
private void buttonLinieFarbe_Click(System.Object sender, System.EventArgs e)
{
colorDialog1.Color = panelLinieFarbeVorschau.BackColor;
if (colorDialog1.ShowDialog() == DialogResult.OK)
{
panelLinieFarbeVorschau.BackColor = colorDialog1.Color;
linienFarbe = colorDialog1.Color;
InvalidateAnzeigePanel();
}
}
private void panelLinieFarbeVorschau_DoubleClick(System.Object sender, System.EventArgs e)
{
buttonLinieFarbe_Click(sender, e);
}
private void buttonHintergrundFarbe_Click(System.Object sender, System.EventArgs e)
{
colorDialog1.Color = panelHintergrundFarbeVorschau.BackColor;
if (colorDialog1.ShowDialog() == DialogResult.OK)
{
panelHintergrundFarbeVorschau.BackColor = colorDialog1.Color;
hintergrundFarbe = colorDialog1.Color;
if (radioButtonHintergrundOhne.Checked)
{
radioButtonHintergrundFarbe.Checked = true;
}
InvalidateAnzeigePanel();
}
}
private void panelHintergrundFarbeVorschau_DoubleClick(System.Object sender, System.EventArgs e)
{
buttonHintergrundFarbe_Click(sender, e);
}
private void listBoxLinieStil_SelectedIndexChanged(System.Object sender, System.EventArgs e)
{
if (listBoxLinieStil.SelectedIndex >= 0)
{
linienStil = auswahlLinienstile[listBoxLinieStil.SelectedIndex];
}
else
{
linienStil = DashStyle.Solid;
}
InvalidateAnzeigePanel();
}
private void listBoxLinieStil_DrawItem(System.Object sender, DrawItemEventArgs e)
{
Int32 y = (e.Bounds.Top + e.Bounds.Bottom) / 2;
e.DrawBackground();
Pen boxStift = new Pen(Color.Black);
boxStift.DashStyle = auswahlLinienstile[e.Index];
e.Graphics.DrawLine(boxStift, e.Bounds.Left + 1, y, e.Bounds.Right - 1, y);
boxStift.Dispose();
}
private void numericUpDownLinieStaerke_ValueChanged(System.Object sender, System.EventArgs e)
{
linienStaerke = (Int32)numericUpDownLinieStaerke.Value;
InvalidateAnzeigePanel();
}
private void listBoxHintergrundMuster_SelectedIndexChanged(System.Object sender, System.EventArgs e)
{
if (listBoxHintergrundMuster.SelectedIndex >= 0)
{
fuellStil = auswahlFuellstile[listBoxHintergrundMuster.SelectedIndex];
this.radioButtonHintergrundMuster.Checked = true;
}
else
{
this.radioButtonHintergrundOhne.Checked = true;
fuellStil = auswahlFuellstile[0];
}
InvalidateAnzeigePanel();
}
private void listBoxHintergrundMuster_DrawItem(System.Object sender, DrawItemEventArgs e)
{
e.DrawBackground();
HatchBrush boxPinsel = new HatchBrush(auswahlFuellstile[e.Index], Color.Black, Color.White);
e.Graphics.FillRectangle(boxPinsel, e.Bounds.Left + 1, e.Bounds.Top + 1, e.Bounds.Width - 1, e.Bounds.Height - 1);
boxPinsel.Dispose();
}
private void hintergrund_CheckedChanged(System.Object sender, System.EventArgs e)
{
InvalidateAnzeigePanel();
}
private void anzeigeFigur_CheckedChanged(System.Object sender, System.EventArgs e)
{
if (radioButtonLinie.Checked)
{
figur = Figur.Linie;
}
else if (radioButtonRechteck.Checked)
{
figur = Figur.Rechteck;
}
else
{
figur = Figur.Kreis;
}
InvalidateAnzeigePanel();
}
private void groesseTrackbar_Scroll(System.Object sender, System.EventArgs e)
{
//die Größe der Figur ermitteln
switch (groesseTrackbar.Value)
{
case 1:
startGroesse = 125;
break;
case 2:
startGroesse = 100;
break;
case 3:
default:
startGroesse = 75;
break;
}
InvalidateAnzeigePanel();
}
private void numericUpDownDauer_ValueChanged(System.Object sender, System.EventArgs e)
{
animationInterval = (Int32)numericUpDownDauer.Value * 100;
}
private void numericUpDownWiederholungen_ValueChanged(System.Object sender, System.EventArgs e)
{
animationWiederholung = (Int32)numericUpDownWiederholungen.Value;
}
private void buttonLoeschen_Click(System.Object sender, System.EventArgs e)
{
//die Zeichenfläche löschen
Graphics g = this.anzeigePanel.CreateGraphics();
g.Clear(anzeigePanel.BackColor);
g.Dispose();
}
private void buttonStart_Click(System.Object sender, System.EventArgs e)
{
}
private void buttonAnimation_Click(System.Object sender, System.EventArgs e)
{
animationInterval = (Int32)numericUpDownDauer.Value * 100;
animationWiederholung = (Int32)numericUpDownWiederholungen.Value;
animationAktiv = !animationAktiv;
animationTimer.Interval = animationInterval;
animationTimer.Enabled = animationAktiv;
animationLauf = animationWiederholung;
animationMinus = false;
animationGroesse = startGroesse;
this.anzeigePanel.Invalidate();
}
private void animationTimer_Tick(System.Object sender, System.EventArgs e)
{
Int32 minGroesse = startGroesse;
Int32 maxGroesse = Math.Min(this.anzeigePanel.ClientSize.Width, this.anzeigePanel.ClientSize.Height);
if (figur == Figur.Rechteck)
{
minGroesse = 0;
maxGroesse /= 2;
}
if (animationMinus)
{
animationGroesse--;
if (animationGroesse <= minGroesse)
{
animationMinus = false;
//Neuer Durchlauf?
animationLauf--;
if (animationLauf <= 0)
{
animationAktiv = false;
animationTimer.Enabled = false;
}
}
}
else
{
animationGroesse++;
if (animationGroesse >= maxGroesse)
{
animationMinus = true;
}
}
System.Diagnostics.Debug.WriteLine("Animation: {0} / {1}", animationGroesse, animationMinus);
this.anzeigePanel.Invalidate();
}
private void InvalidateAnzeigePanel()
{
if (!animationAktiv)
{
this.anzeigePanel.Invalidate();
}
}
private void anzeigePanel_Paint(System.Object sender, PaintEventArgs e)
{
Graphics zeichenflaeche = e.Graphics;
zeichenflaeche.SmoothingMode = SmoothingMode.AntiAlias;
Pen stift = new Pen(linienFarbe);
SolidBrush pinsel = new SolidBrush(hintergrundFarbe);
stift.Width = linienStaerke;
stift.DashStyle = linienStil;
// Zeichenrechteck bestimmen, Vorschau fix / Animation fliessend
Int32 offset = startGroesse;
if (animationAktiv)
{
offset = animationGroesse;
}
Rectangle zeichenRectangle = Rectangle.Inflate(anzeigePanel.ClientRectangle, -offset, -offset);
System.Diagnostics.Debug.WriteLine("Größe: {0}", zeichenRectangle);
// Figur zeichnen
switch (figur)
{
case Figur.Kreis:
default:
if (radioButtonHintergrundFarbe.Checked)
{
zeichenflaeche.FillEllipse(pinsel, zeichenRectangle);
}
else if (radioButtonHintergrundMuster.Checked)
{
HatchBrush musterPinsel = new HatchBrush(fuellStil, linienFarbe, hintergrundFarbe);
zeichenflaeche.FillEllipse(musterPinsel, zeichenRectangle);
musterPinsel.Dispose();
}
zeichenflaeche.DrawEllipse(stift, zeichenRectangle);
break;
case Figur.Rechteck:
if (radioButtonHintergrundFarbe.Checked)
{
zeichenflaeche.FillRectangle(pinsel, zeichenRectangle);
}
else if (radioButtonHintergrundMuster.Checked)
{
HatchBrush musterPinsel = new HatchBrush(fuellStil, linienFarbe, hintergrundFarbe);
zeichenflaeche.FillRectangle(musterPinsel, zeichenRectangle);
musterPinsel.Dispose();
}
zeichenflaeche.DrawRectangle(stift, zeichenRectangle);
break;
case Figur.Linie:
Int32 center = (zeichenRectangle.Top + zeichenRectangle.Bottom - linienStaerke) / 2;
zeichenflaeche.DrawLine(stift,
new Point(zeichenRectangle.Left, center),
new Point(zeichenRectangle.Right, center));
break;
}
//Stift und Pinsel löschen
stift.Dispose();
pinsel.Dispose();
}
}
}

Designer

Quellcode

namespace WindowsFormsApplication1
{
partial class Form1
{
/// <summary>
/// Erforderliche Designervariable.
/// </summary>
private System.ComponentModel.IContainer components = null;
/// <summary>
/// Verwendete Ressourcen bereinigen.
/// </summary>
/// <param name="disposing">True, wenn verwaltete Ressourcen gelöscht werden sollen; andernfalls False.</param>
protected override void Dispose(bool disposing)
{
if (disposing && (components != null))
{
components.Dispose();
}
base.Dispose(disposing);
}
#region Vom Windows Form-Designer generierter Code
/// <summary>
/// Erforderliche Methode für die Designerunterstützung.
/// Der Inhalt der Methode darf nicht mit dem Code-Editor geändert werden.
/// </summary>
private void InitializeComponent()
{
this.components = new System.ComponentModel.Container();
this.anzeigePanel = new System.Windows.Forms.Panel();
this.groupBox2 = new System.Windows.Forms.GroupBox();
this.buttonHintergrundFarbe = new System.Windows.Forms.Button();
this.panelHintergrundFarbeVorschau = new System.Windows.Forms.Panel();
this.listBoxHintergrundMuster = new System.Windows.Forms.ListBox();
this.label5 = new System.Windows.Forms.Label();
this.label4 = new System.Windows.Forms.Label();
this.radioButtonHintergrundMuster = new System.Windows.Forms.RadioButton();
this.radioButtonHintergrundFarbe = new System.Windows.Forms.RadioButton();
this.radioButtonHintergrundOhne = new System.Windows.Forms.RadioButton();
this.groupBox1 = new System.Windows.Forms.GroupBox();
this.buttonLinieFarbe = new System.Windows.Forms.Button();
this.panelLinieFarbeVorschau = new System.Windows.Forms.Panel();
this.label3 = new System.Windows.Forms.Label();
this.listBoxLinieStil = new System.Windows.Forms.ListBox();
this.numericUpDownLinieStaerke = new System.Windows.Forms.NumericUpDown();
this.label2 = new System.Windows.Forms.Label();
this.label1 = new System.Windows.Forms.Label();
this.groupBox3 = new System.Windows.Forms.GroupBox();
this.radioButtonLinie = new System.Windows.Forms.RadioButton();
this.radioButtonKreis = new System.Windows.Forms.RadioButton();
this.radioButtonRechteck = new System.Windows.Forms.RadioButton();
this.groesseTrackbar = new System.Windows.Forms.TrackBar();
this.buttonStart = new System.Windows.Forms.Button();
this.buttonLoeschen = new System.Windows.Forms.Button();
this.buttonBeenden = new System.Windows.Forms.Button();
this.colorDialog1 = new System.Windows.Forms.ColorDialog();
this.label6 = new System.Windows.Forms.Label();
this.label7 = new System.Windows.Forms.Label();
this.buttonAnimation = new System.Windows.Forms.Button();
this.numericUpDownWiederholungen = new System.Windows.Forms.NumericUpDown();
this.numericUpDownDauer = new System.Windows.Forms.NumericUpDown();
this.animationTimer = new System.Windows.Forms.Timer(this.components);
this.groupBox2.SuspendLayout();
this.groupBox1.SuspendLayout();
((System.ComponentModel.ISupportInitialize)(this.numericUpDownLinieStaerke)).BeginInit();
this.groupBox3.SuspendLayout();
((System.ComponentModel.ISupportInitialize)(this.groesseTrackbar)).BeginInit();
((System.ComponentModel.ISupportInitialize)(this.numericUpDownWiederholungen)).BeginInit();
((System.ComponentModel.ISupportInitialize)(this.numericUpDownDauer)).BeginInit();
this.SuspendLayout();
//
// anzeigePanel
//
this.anzeigePanel.BackColor = System.Drawing.Color.White;
this.anzeigePanel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle;
this.anzeigePanel.Location = new System.Drawing.Point(12, 12);
this.anzeigePanel.Name = "anzeigePanel";
this.anzeigePanel.Size = new System.Drawing.Size(300, 300);
this.anzeigePanel.TabIndex = 0;
this.anzeigePanel.Paint += new System.Windows.Forms.PaintEventHandler(this.anzeigePanel_Paint);
//
// groupBox2
//
this.groupBox2.Controls.Add(this.buttonHintergrundFarbe);
this.groupBox2.Controls.Add(this.panelHintergrundFarbeVorschau);
this.groupBox2.Controls.Add(this.listBoxHintergrundMuster);
this.groupBox2.Controls.Add(this.label5);
this.groupBox2.Controls.Add(this.label4);
this.groupBox2.Controls.Add(this.radioButtonHintergrundMuster);
this.groupBox2.Controls.Add(this.radioButtonHintergrundFarbe);
this.groupBox2.Controls.Add(this.radioButtonHintergrundOhne);
this.groupBox2.Location = new System.Drawing.Point(327, 128);
this.groupBox2.Name = "groupBox2";
this.groupBox2.Size = new System.Drawing.Size(200, 108);
this.groupBox2.TabIndex = 2;
this.groupBox2.TabStop = false;
this.groupBox2.Text = "Hintergrund";
//
// buttonHintergrundFarbe
//
this.buttonHintergrundFarbe.Location = new System.Drawing.Point(104, 42);
this.buttonHintergrundFarbe.Name = "buttonHintergrundFarbe";
this.buttonHintergrundFarbe.Size = new System.Drawing.Size(30, 23);
this.buttonHintergrundFarbe.TabIndex = 7;
this.buttonHintergrundFarbe.Text = "...";
this.buttonHintergrundFarbe.UseVisualStyleBackColor = true;
this.buttonHintergrundFarbe.Click += new System.EventHandler(this.buttonHintergrundFarbe_Click);
//
// panelHintergrundFarbeVorschau
//
this.panelHintergrundFarbeVorschau.BackColor = System.Drawing.Color.White;
this.panelHintergrundFarbeVorschau.Location = new System.Drawing.Point(62, 40);
this.panelHintergrundFarbeVorschau.Name = "panelHintergrundFarbeVorschau";
this.panelHintergrundFarbeVorschau.Size = new System.Drawing.Size(27, 24);
this.panelHintergrundFarbeVorschau.TabIndex = 8;
this.panelHintergrundFarbeVorschau.DoubleClick += new System.EventHandler(this.panelHintergrundFarbeVorschau_DoubleClick);
//
// listBoxHintergrundMuster
//
this.listBoxHintergrundMuster.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed;
this.listBoxHintergrundMuster.FormattingEnabled = true;
this.listBoxHintergrundMuster.Location = new System.Drawing.Point(58, 69);
this.listBoxHintergrundMuster.Name = "listBoxHintergrundMuster";
this.listBoxHintergrundMuster.Size = new System.Drawing.Size(121, 17);
this.listBoxHintergrundMuster.TabIndex = 4;
this.listBoxHintergrundMuster.DrawItem += new System.Windows.Forms.DrawItemEventHandler(this.listBoxHintergrundMuster_DrawItem);
this.listBoxHintergrundMuster.SelectedIndexChanged += new System.EventHandler(this.listBoxHintergrundMuster_SelectedIndexChanged);
//
// label5
//
this.label5.Location = new System.Drawing.Point(6, 69);
this.label5.Name = "label5";
this.label5.Size = new System.Drawing.Size(41, 21);
this.label5.TabIndex = 5;
this.label5.Text = "Stil:";
//
// label4
//
this.label4.Location = new System.Drawing.Point(6, 42);
this.label4.Name = "label4";
this.label4.Size = new System.Drawing.Size(41, 21);
this.label4.TabIndex = 4;
this.label4.Text = "Farbe:";
//
// radioButtonHintergrundMuster
//
this.radioButtonHintergrundMuster.AutoSize = true;
this.radioButtonHintergrundMuster.Location = new System.Drawing.Point(124, 19);
this.radioButtonHintergrundMuster.Name = "radioButtonHintergrundMuster";
this.radioButtonHintergrundMuster.Size = new System.Drawing.Size(57, 17);
this.radioButtonHintergrundMuster.TabIndex = 2;
this.radioButtonHintergrundMuster.TabStop = true;
this.radioButtonHintergrundMuster.Text = "Muster";
this.radioButtonHintergrundMuster.UseVisualStyleBackColor = true;
this.radioButtonHintergrundMuster.CheckedChanged += new System.EventHandler(this.hintergrund_CheckedChanged);
//
// radioButtonHintergrundFarbe
//
this.radioButtonHintergrundFarbe.AutoSize = true;
this.radioButtonHintergrundFarbe.Location = new System.Drawing.Point(67, 19);
this.radioButtonHintergrundFarbe.Name = "radioButtonHintergrundFarbe";
this.radioButtonHintergrundFarbe.Size = new System.Drawing.Size(52, 17);
this.radioButtonHintergrundFarbe.TabIndex = 1;
this.radioButtonHintergrundFarbe.TabStop = true;
this.radioButtonHintergrundFarbe.Text = "Farbe";
this.radioButtonHintergrundFarbe.UseVisualStyleBackColor = true;
this.radioButtonHintergrundFarbe.CheckedChanged += new System.EventHandler(this.hintergrund_CheckedChanged);
//
// radioButtonHintergrundOhne
//
this.radioButtonHintergrundOhne.AutoSize = true;
this.radioButtonHintergrundOhne.Checked = true;
this.radioButtonHintergrundOhne.Location = new System.Drawing.Point(9, 19);
this.radioButtonHintergrundOhne.Name = "radioButtonHintergrundOhne";
this.radioButtonHintergrundOhne.Size = new System.Drawing.Size(49, 17);
this.radioButtonHintergrundOhne.TabIndex = 0;
this.radioButtonHintergrundOhne.TabStop = true;
this.radioButtonHintergrundOhne.Text = "ohne";
this.radioButtonHintergrundOhne.UseVisualStyleBackColor = true;
this.radioButtonHintergrundOhne.CheckedChanged += new System.EventHandler(this.hintergrund_CheckedChanged);
//
// groupBox1
//
this.groupBox1.Controls.Add(this.buttonLinieFarbe);
this.groupBox1.Controls.Add(this.panelLinieFarbeVorschau);
this.groupBox1.Controls.Add(this.label3);
this.groupBox1.Controls.Add(this.listBoxLinieStil);
this.groupBox1.Controls.Add(this.numericUpDownLinieStaerke);
this.groupBox1.Controls.Add(this.label2);
this.groupBox1.Controls.Add(this.label1);
this.groupBox1.Location = new System.Drawing.Point(327, 12);
this.groupBox1.Name = "groupBox1";
this.groupBox1.Size = new System.Drawing.Size(200, 110);
this.groupBox1.TabIndex = 1;
this.groupBox1.TabStop = false;
this.groupBox1.Text = "Linie";
//
// buttonLinieFarbe
//
this.buttonLinieFarbe.Location = new System.Drawing.Point(104, 17);
this.buttonLinieFarbe.Name = "buttonLinieFarbe";
this.buttonLinieFarbe.Size = new System.Drawing.Size(30, 23);
this.buttonLinieFarbe.TabIndex = 0;
this.buttonLinieFarbe.Text = "...";
this.buttonLinieFarbe.UseVisualStyleBackColor = true;
this.buttonLinieFarbe.Click += new System.EventHandler(this.buttonLinieFarbe_Click);
//
// panelLinieFarbeVorschau
//
this.panelLinieFarbeVorschau.BackColor = System.Drawing.Color.Black;
this.panelLinieFarbeVorschau.Location = new System.Drawing.Point(62, 15);
this.panelLinieFarbeVorschau.Name = "panelLinieFarbeVorschau";
this.panelLinieFarbeVorschau.Size = new System.Drawing.Size(27, 24);
this.panelLinieFarbeVorschau.TabIndex = 6;
this.panelLinieFarbeVorschau.DoubleClick += new System.EventHandler(this.panelLinieFarbeVorschau_DoubleClick);
//
// label3
//
this.label3.Location = new System.Drawing.Point(6, 81);
this.label3.Name = "label3";
this.label3.Size = new System.Drawing.Size(41, 21);
this.label3.TabIndex = 5;
this.label3.Text = "Stärke:";
//
// listBoxLinieStil
//
this.listBoxLinieStil.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed;
this.listBoxLinieStil.FormattingEnabled = true;
this.listBoxLinieStil.Location = new System.Drawing.Point(58, 46);
this.listBoxLinieStil.Name = "listBoxLinieStil";
this.listBoxLinieStil.Size = new System.Drawing.Size(121, 17);
this.listBoxLinieStil.TabIndex = 4;
this.listBoxLinieStil.DrawItem += new System.Windows.Forms.DrawItemEventHandler(this.listBoxLinieStil_DrawItem);
this.listBoxLinieStil.SelectedIndexChanged += new System.EventHandler(this.listBoxLinieStil_SelectedIndexChanged);
//
// numericUpDownLinieStaerke
//
this.numericUpDownLinieStaerke.Location = new System.Drawing.Point(58, 82);
this.numericUpDownLinieStaerke.Maximum = new decimal(new int[] {
20,
0,
0,
0});
this.numericUpDownLinieStaerke.Minimum = new decimal(new int[] {
1,
0,
0,
0});
this.numericUpDownLinieStaerke.Name = "numericUpDownLinieStaerke";
this.numericUpDownLinieStaerke.Size = new System.Drawing.Size(121, 20);
this.numericUpDownLinieStaerke.TabIndex = 5;
this.numericUpDownLinieStaerke.Value = new decimal(new int[] {
1,
0,
0,
0});
this.numericUpDownLinieStaerke.ValueChanged += new System.EventHandler(this.numericUpDownLinieStaerke_ValueChanged);
//
// label2
//
this.label2.Location = new System.Drawing.Point(6, 46);
this.label2.Name = "label2";
this.label2.Size = new System.Drawing.Size(24, 21);
this.label2.TabIndex = 4;
this.label2.Text = "Stil:";
//
// label1
//
this.label1.Location = new System.Drawing.Point(6, 19);
this.label1.Name = "label1";
this.label1.Size = new System.Drawing.Size(37, 21);
this.label1.TabIndex = 3;
this.label1.Text = "Farbe:";
//
// groupBox3
//
this.groupBox3.Controls.Add(this.radioButtonLinie);
this.groupBox3.Controls.Add(this.radioButtonKreis);
this.groupBox3.Controls.Add(this.radioButtonRechteck);
this.groupBox3.Location = new System.Drawing.Point(327, 242);
this.groupBox3.Name = "groupBox3";
this.groupBox3.Size = new System.Drawing.Size(200, 49);
this.groupBox3.TabIndex = 3;
this.groupBox3.TabStop = false;
this.groupBox3.Text = "Figur";
//
// radioButtonLinie
//
this.radioButtonLinie.AutoSize = true;
this.radioButtonLinie.Location = new System.Drawing.Point(135, 19);
this.radioButtonLinie.Name = "radioButtonLinie";
this.radioButtonLinie.Size = new System.Drawing.Size(47, 17);
this.radioButtonLinie.TabIndex = 6;
this.radioButtonLinie.TabStop = true;
this.radioButtonLinie.Text = "Linie";
this.radioButtonLinie.UseVisualStyleBackColor = true;
this.radioButtonLinie.CheckedChanged += new System.EventHandler(this.anzeigeFigur_CheckedChanged);
//
// radioButtonKreis
//
this.radioButtonKreis.AutoSize = true;
this.radioButtonKreis.Checked = true;
this.radioButtonKreis.Location = new System.Drawing.Point(9, 19);
this.radioButtonKreis.Name = "radioButtonKreis";
this.radioButtonKreis.Size = new System.Drawing.Size(48, 17);
this.radioButtonKreis.TabIndex = 4;
this.radioButtonKreis.TabStop = true;
this.radioButtonKreis.Text = "Kreis";
this.radioButtonKreis.UseVisualStyleBackColor = true;
this.radioButtonKreis.CheckedChanged += new System.EventHandler(this.anzeigeFigur_CheckedChanged);
//
// radioButtonRechteck
//
this.radioButtonRechteck.AutoSize = true;
this.radioButtonRechteck.Location = new System.Drawing.Point(62, 19);
this.radioButtonRechteck.Name = "radioButtonRechteck";
this.radioButtonRechteck.Size = new System.Drawing.Size(72, 17);
this.radioButtonRechteck.TabIndex = 5;
this.radioButtonRechteck.TabStop = true;
this.radioButtonRechteck.Text = "Rechteck";
this.radioButtonRechteck.UseVisualStyleBackColor = true;
this.radioButtonRechteck.CheckedChanged += new System.EventHandler(this.anzeigeFigur_CheckedChanged);
//
// groesseTrackbar
//
this.groesseTrackbar.LargeChange = 1;
this.groesseTrackbar.Location = new System.Drawing.Point(327, 297);
this.groesseTrackbar.Maximum = 3;
this.groesseTrackbar.Minimum = 1;
this.groesseTrackbar.Name = "groesseTrackbar";
this.groesseTrackbar.Size = new System.Drawing.Size(200, 45);
this.groesseTrackbar.TabIndex = 4;
this.groesseTrackbar.Value = 2;
this.groesseTrackbar.Scroll += new System.EventHandler(this.groesseTrackbar_Scroll);
//
// buttonStart
//
this.buttonStart.Location = new System.Drawing.Point(327, 346);
this.buttonStart.Name = "buttonStart";
this.buttonStart.Size = new System.Drawing.Size(75, 23);
this.buttonStart.TabIndex = 5;
this.buttonStart.Text = "Los geht\'s";
this.buttonStart.UseVisualStyleBackColor = true;
this.buttonStart.Click += new System.EventHandler(this.buttonStart_Click);
//
// buttonLoeschen
//
this.buttonLoeschen.Location = new System.Drawing.Point(408, 346);
this.buttonLoeschen.Name = "buttonLoeschen";
this.buttonLoeschen.Size = new System.Drawing.Size(75, 23);
this.buttonLoeschen.TabIndex = 6;
this.buttonLoeschen.Text = "Löschen";
this.buttonLoeschen.UseVisualStyleBackColor = true;
this.buttonLoeschen.Click += new System.EventHandler(this.buttonLoeschen_Click);
//
// buttonBeenden
//
this.buttonBeenden.Location = new System.Drawing.Point(489, 346);
this.buttonBeenden.Name = "buttonBeenden";
this.buttonBeenden.Size = new System.Drawing.Size(75, 23);
this.buttonBeenden.TabIndex = 7;
this.buttonBeenden.Text = "Beenden";
this.buttonBeenden.UseVisualStyleBackColor = true;
this.buttonBeenden.Click += new System.EventHandler(this.buttonBeenden_Click);
//
// label6
//
this.label6.Location = new System.Drawing.Point(9, 327);
this.label6.Name = "label6";
this.label6.Size = new System.Drawing.Size(88, 20);
this.label6.TabIndex = 8;
this.label6.Text = "Wiederholungen:";
//
// label7
//
this.label7.Location = new System.Drawing.Point(9, 353);
this.label7.Name = "label7";
this.label7.Size = new System.Drawing.Size(88, 20);
this.label7.TabIndex = 9;
this.label7.Text = "Dauer:";
//
// buttonAnimation
//
this.buttonAnimation.Location = new System.Drawing.Point(170, 346);
this.buttonAnimation.Name = "buttonAnimation";
this.buttonAnimation.Size = new System.Drawing.Size(75, 23);
this.buttonAnimation.TabIndex = 10;
this.buttonAnimation.Text = "Animation";
this.buttonAnimation.UseVisualStyleBackColor = true;
this.buttonAnimation.Click += new System.EventHandler(this.buttonAnimation_Click);
//
// numericUpDownWiederholungen
//
this.numericUpDownWiederholungen.Location = new System.Drawing.Point(103, 327);
this.numericUpDownWiederholungen.Maximum = new decimal(new int[] {
10,
0,
0,
0});
this.numericUpDownWiederholungen.Minimum = new decimal(new int[] {
1,
0,
0,
0});
this.numericUpDownWiederholungen.Name = "numericUpDownWiederholungen";
this.numericUpDownWiederholungen.Size = new System.Drawing.Size(47, 20);
this.numericUpDownWiederholungen.TabIndex = 11;
this.numericUpDownWiederholungen.Value = new decimal(new int[] {
1,
0,
0,
0});
this.numericUpDownWiederholungen.ValueChanged += new System.EventHandler(this.numericUpDownWiederholungen_ValueChanged);
//
// numericUpDownDauer
//
this.numericUpDownDauer.Location = new System.Drawing.Point(103, 353);
this.numericUpDownDauer.Maximum = new decimal(new int[] {
15,
0,
0,
0});
this.numericUpDownDauer.Minimum = new decimal(new int[] {
1,
0,
0,
0});
this.numericUpDownDauer.Name = "numericUpDownDauer";
this.numericUpDownDauer.Size = new System.Drawing.Size(47, 20);
this.numericUpDownDauer.TabIndex = 12;
this.numericUpDownDauer.Value = new decimal(new int[] {
1,
0,
0,
0});
this.numericUpDownDauer.ValueChanged += new System.EventHandler(this.numericUpDownDauer_ValueChanged);
//
// animationTimer
//
this.animationTimer.Tick += new System.EventHandler(this.animationTimer_Tick);
//
// Form1
//
this.AutoScaleDimensions = new System.Drawing.SizeF(6F, 13F);
this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font;
this.ClientSize = new System.Drawing.Size(584, 381);
this.Controls.Add(this.numericUpDownDauer);
this.Controls.Add(this.numericUpDownWiederholungen);
this.Controls.Add(this.buttonAnimation);
this.Controls.Add(this.label7);
this.Controls.Add(this.label6);
this.Controls.Add(this.buttonBeenden);
this.Controls.Add(this.buttonLoeschen);
this.Controls.Add(this.buttonStart);
this.Controls.Add(this.groesseTrackbar);
this.Controls.Add(this.groupBox3);
this.Controls.Add(this.groupBox2);
this.Controls.Add(this.groupBox1);
this.Controls.Add(this.anzeigePanel);
this.MaximizeBox = false;
this.MinimizeBox = false;
this.Name = "Form1";
this.Text = "Eine Spielerei";
this.Load += new System.EventHandler(this.MyForm_Load);
this.groupBox2.ResumeLayout(false);
this.groupBox2.PerformLayout();
this.groupBox1.ResumeLayout(false);
((System.ComponentModel.ISupportInitialize)(this.numericUpDownLinieStaerke)).EndInit();
this.groupBox3.ResumeLayout(false);
this.groupBox3.PerformLayout();
((System.ComponentModel.ISupportInitialize)(this.groesseTrackbar)).EndInit();
((System.ComponentModel.ISupportInitialize)(this.numericUpDownWiederholungen)).EndInit();
((System.ComponentModel.ISupportInitialize)(this.numericUpDownDauer)).EndInit();
this.ResumeLayout(false);
this.PerformLayout();
}
#endregion
private System.Windows.Forms.Panel anzeigePanel;
private System.Windows.Forms.GroupBox groupBox2;
private System.Windows.Forms.GroupBox groupBox1;
private System.Windows.Forms.Label label3;
private System.Windows.Forms.Label label2;
private System.Windows.Forms.ListBox listBoxLinieStil;
private System.Windows.Forms.Label label1;
private System.Windows.Forms.NumericUpDown numericUpDownLinieStaerke;
private System.Windows.Forms.RadioButton radioButtonHintergrundMuster;
private System.Windows.Forms.RadioButton radioButtonHintergrundFarbe;
private System.Windows.Forms.RadioButton radioButtonHintergrundOhne;
private System.Windows.Forms.ListBox listBoxHintergrundMuster;
private System.Windows.Forms.Label label5;
private System.Windows.Forms.Label label4;
private System.Windows.Forms.GroupBox groupBox3;
private System.Windows.Forms.RadioButton radioButtonLinie;
private System.Windows.Forms.RadioButton radioButtonKreis;
private System.Windows.Forms.RadioButton radioButtonRechteck;
private System.Windows.Forms.TrackBar groesseTrackbar;
private System.Windows.Forms.Button buttonStart;
private System.Windows.Forms.Button buttonLoeschen;
private System.Windows.Forms.Button buttonBeenden;
private System.Windows.Forms.Button buttonLinieFarbe;
private System.Windows.Forms.Panel panelLinieFarbeVorschau;
private System.Windows.Forms.ColorDialog colorDialog1;
private System.Windows.Forms.Button buttonHintergrundFarbe;
private System.Windows.Forms.Panel panelHintergrundFarbeVorschau;
private System.Windows.Forms.Label label6;
private System.Windows.Forms.Label label7;
private System.Windows.Forms.Button buttonAnimation;
private System.Windows.Forms.NumericUpDown numericUpDownWiederholungen;
private System.Windows.Forms.NumericUpDown numericUpDownDauer;
private System.Windows.Forms.Timer animationTimer;
}
}

BigBrain · 10. November 2018, 17:18

Hallo RodFromGermany,

danke für den schnellen Tip bzw. den Code in C#...ich habe es sofort vom Automaten konvertieren lassen, mal gucken ob es funzt..

BigBrain

RodFromGermany · 10. November 2018, 17:26

@BigBrain Die GUI bzw. den Designer-Code kannst Du konvertieren, indem Du in der C#-Form alle Controls markierst und in eine leere VB-Form einfügst.

BigBrain · 11. November 2018, 12:41

Hallo RodFromGermany,

ich dachte ich habe einen guten Online-Konverter gefunden, doch demnach ist nicht so gewesen... ich habe via CodeTranslator den VB-Code in die Laufzeit eingebunden, aber ich bekomme weiterhin Fehler, undzwar mit "Figur"...den Designer hatte ich bereits händisch eingestellt, aber hier auch danke für dein Tipp...Nun, so sieht aktuell mein Code aus...Danke vorab für deine Hilfe

Spoiler anzeigen

VB.NET-Quellcode

Imports System
Imports
System.Drawing
Imports System.Drawing.Drawing2D
Imports
System.Windows.Forms
Namespace WindowsFormsApplication1
Public Class Form1
Inherits Form
Enum Figur
Kreis
Rechteck
Linie
End Enum
Private linienStaerke As Int32
Private linienFarbe As Color
Private hintergrundFarbe As
Color
Private linienStil As DashStyle
Private fuellStil As HatchStyle
Private startGroesse As Int32
Private animationWiederholung
As Int32
Private animationInterval As
Int32
Private animationAktiv As
Boolean
Private animationLauf As Int32
Private animationMinus As
Boolean
Private animationGroesse As
Int32
'für die Linienstile
Private Shared ReadOnly
auswahlLinienstile() As DashStyle
Private Shared ReadOnly Dash()
As DashStyle
Private Shared DashDot() As
DashStyle
Private Shared DashDotDot() As
DashStyle
Private Shared Dot() As
DashStyle
'für die Hintergrundmuster
Private Shared ReadOnly
auswahlFuellstile() As HatchStyle
'Private Shared
HatchStyle.Cross() As HatchStyle
Private Shared DottedGrid() As
HatchStyle
Private Shared
ForwardDiagonal() As HatchStyle
Private Shared Sphere() As
HatchStyle
Private Shared Vertical() As
HatchStyle
Private Shared Wave() As
HatchStyle
Private Shared ZigZag() As
HatchStyle
Public Sub New()
MyBase.New
Dim figur As Figur
InitializeComponent()
figur = Figur.Kreis
End Sub
Private Sub
buttonBeenden_Click(ByVal sender As Object, ByVal e As
System.EventArgs)
Close()
End Sub
Private Sub MyForm_Load(ByVal
sender As Object, ByVal e As System.EventArgs)
Me.startGroesse = 100
Me.linienStaerke = 1
Me.linienFarbe = Color.Black
Me.hintergrundFarbe =
Color.White
radioButtonKreis.Checked = True
'die Einträge für die Linienstile erzeugen
For
Each element As DashStyle In auswahlLinienstile
listBoxLinieStil.Items.Add("")
Next
listBoxLinieStil.SelectedIndex = 0
'und für die
Hintergrundmuster
For Each element As HatchStyle In
auswahlFuellstile
listBoxHintergrundMuster.Items.Add("")
Next
listBoxHintergrundMuster.SelectedIndex = -1
End
Sub
Private Sub
buttonLinieFarbe_Click(ByVal sender As Object, ByVal e As
System.EventArgs)
colorDialog1.Color =
panelLinieFarbeVorschau.BackColor
If
(colorDialog1.ShowDialog = DialogResult.OK) Then
panelLinieFarbeVorschau.BackColor = colorDialog1.Color
Me.linienFarbe = colorDialog1.Color
Me.InvalidateAnzeigePanel()
End If
End Sub
Private Sub
panelLinieFarbeVorschau_DoubleClick(ByVal sender As Object, ByVal e
As System.EventArgs)
Me.buttonLinieFarbe_Click(sender,
e)
End Sub
Private Sub
buttonHintergrundFarbe_Click(ByVal sender As Object, ByVal e As
System.EventArgs)
colorDialog1.Color =
panelHintergrundFarbeVorschau.BackColor
If
(colorDialog1.ShowDialog = DialogResult.OK) Then
panelHintergrundFarbeVorschau.BackColor = colorDialog1.Color
Me.hintergrundFarbe = colorDialog1.Color
If radioButtonHintergrundOhne.Checked Then
radioButtonHintergrundFarbe.Checked = True
End If
Me.InvalidateAnzeigePanel()
End If
End Sub
Private Sub
panelHintergrundFarbeVorschau_DoubleClick(ByVal sender As Object,
ByVal e As System.EventArgs)
Me.buttonHintergrundFarbe_Click(sender, e)
End Sub
Private Sub
listBoxLinieStil_SelectedIndexChanged(ByVal sender As Object, ByVal e
As System.EventArgs)
If
(listBoxLinieStil.SelectedIndex >= 0) Then
Me.linienStil = auswahlLinienstile(listBoxLinieStil.SelectedIndex)
Else
Me.linienStil = DashStyle.Solid
End If
Me.InvalidateAnzeigePanel()
End Sub
Private Sub
listBoxLinieStil_DrawItem(ByVal sender As Object, ByVal e As
DrawItemEventArgs)
Dim y As Int32 =
CInt(((e.Bounds.Top + e.Bounds.Bottom) / 2))
e.DrawBackground()
Dim boxStift As Pen = New
Pen(Color.Black)
boxStift.DashStyle =
auswahlLinienstile(e.Index)
e.Graphics.DrawLine(boxStift, (e.Bounds.Left + 1), y, (e.Bounds.Right
- 1), y)
boxStift.Dispose()
End Sub
Private Sub
numericUpDownLinieStaerke_ValueChanged(ByVal sender As Object, ByVal
e As System.EventArgs)
Me.linienStaerke =
CType(numericUpDownLinieStaerke.Value, Int32)
Me.InvalidateAnzeigePanel()
End Sub
Private Sub
listBoxHintergrundMuster_SelectedIndexChanged(ByVal sender As Object,
ByVal e As System.EventArgs)
If
(listBoxHintergrundMuster.SelectedIndex >= 0) Then
Me.fuellStil =
auswahlFuellstile(listBoxHintergrundMuster.SelectedIndex)
Me.radioButtonHintergrundMuster.Checked = True
Else
Me.radioButtonHintergrundOhne.Checked = True
Me.fuellStil = auswahlFuellstile(0)
End
If
Me.InvalidateAnzeigePanel()
End Sub
Private Sub
listBoxHintergrundMuster_DrawItem(ByVal sender As Object, ByVal e As
DrawItemEventArgs)
e.DrawBackground()
Dim boxPinsel As HatchBrush = New
HatchBrush(auswahlFuellstile(e.Index), Color.Black, Color.White)
e.Graphics.FillRectangle(boxPinsel, (e.Bounds.Left + 1),
(e.Bounds.Top + 1), (e.Bounds.Width - 1), (e.Bounds.Height - 1))
boxPinsel.Dispose()
End Sub
Private Sub
hintergrund_CheckedChanged(ByVal sender As Object, ByVal e As
System.EventArgs)
Me.InvalidateAnzeigePanel()
End Sub
Private Sub
Figur_CheckedChanged(ByVal sender As Object, ByVal e As
System.EventArgs)
If radioButtonLinie.Checked Then
Figur = Figur.Linie
ElseIf
radioButtonRechteck.Checked Then
Figur =
Figur.Rechteck
Else
Figur =
Figur.Kreis
End If
Me.InvalidateAnzeigePanel()
End Sub
Private Sub
groesseTrackbar_Scroll(ByVal sender As Object, ByVal e As
System.EventArgs)
'die Größe der Figur ermitteln
Select Case (groesseTrackbar.Value)
Case 1
Me.startGroesse = 125
Case 2
Me.startGroesse = 100
Case 3
Case Else
Me.startGroesse = 75
End Select
Me.InvalidateAnzeigePanel()
End Sub
Private Sub
numericUpDownDauer_ValueChanged(ByVal sender As Object, ByVal e As
System.EventArgs)
Me.animationInterval =
(CType(numericUpDownDauer.Value, Int32) * 100)
End Sub
Private Sub
numericUpDownWiederholungen_ValueChanged(ByVal sender As Object,
ByVal e As System.EventArgs)
Me.animationWiederholung
= CType(numericUpDownWiederholungen.Value, Int32)
End Sub
Private Sub
buttonLoeschen_Click(ByVal sender As Object, ByVal e As
System.EventArgs)
'die Zeichenfläche löschen
Dim g As Graphics = Me.anzeigePanel.CreateGraphics
g.Clear(anzeigePanel.BackColor)
g.Dispose()
End Sub
Private Sub
buttonStart_Click(ByVal sender As Object, ByVal e As
System.EventArgs)
End Sub
Private Sub
buttonAnimation_Click(ByVal sender As Object, ByVal e As
System.EventArgs)
Me.animationInterval =
(CType(numericUpDownDauer.Value, Int32) * 100)
Me.animationWiederholung = CType(numericUpDownWiederholungen.Value,
Int32)
Me.animationAktiv = Not Me.animationAktiv
animationTimer.Interval = Me.animationInterval
animationTimer.Enabled = Me.animationAktiv
Me.animationLauf = Me.animationWiederholung
Me.animationMinus = False
Me.animationGroesse =
Me.startGroesse
Me.anzeigePanel.Invalidate()
End Sub
Private Sub
animationTimer_Tick(ByVal sender As Object, ByVal e As
System.EventArgs)
Dim minGroesse As Int32 =
Me.startGroesse
Dim maxGroesse As Int32 =
Math.Min(Me.anzeigePanel.ClientSize.Width,
Me.anzeigePanel.ClientSize.Height)
If Figur = Rechteck
Then
minGroesse = 0
maxGroesse = 2
End If
If Me.animationMinus Then
Me.animationGroesse = (Me.animationGroesse - 1)
If (Me.animationGroesse <= minGroesse) Then
Me.animationMinus = False
'Neuer
Durchlauf?
Me.animationLauf =
(Me.animationLauf - 1)
If (Me.animationLauf <=
0) Then
Me.animationAktiv = False
animationTimer.Enabled = False
End If
End If
Else
Me.animationGroesse = (Me.animationGroesse + 1)
If
(Me.animationGroesse >= maxGroesse) Then
Me.animationMinus = True
End If
End If
System.Diagnostics.Debug.WriteLine("Animation: {0} / {1}",
Me.animationGroesse, Me.animationMinus)
Me.anzeigePanel.Invalidate()
End Sub
Private Sub
InvalidateAnzeigePanel()
If Not Me.animationAktiv
Then
Me.anzeigePanel.Invalidate()
End If
End Sub
Private Sub
anzeigePanel_Paint(ByVal sender As Object, ByVal e As
PaintEventArgs)
Dim zeichenflaeche As Graphics =
e.Graphics
zeichenflaeche.SmoothingMode =
SmoothingMode.AntiAlias
Dim stift As Pen = New
Pen(Me.linienFarbe)
Dim pinsel As SolidBrush = New
SolidBrush(Me.hintergrundFarbe)
stift.Width =
Me.linienStaerke
stift.DashStyle = Me.linienStil
' Zeichenrechteck bestimmen, Vorschau fix / Animation
fliessend
Dim offset As Int32 = Me.startGroesse
If Me.animationAktiv Then
offset =
Me.animationGroesse
End If
Dim zeichenRectangle As
Rectangle = Rectangle.Inflate(anzeigePanel.ClientRectangle, (offset *
-1), (offset * -1))
System.Diagnostics.Debug.WriteLine("Größe: {0}",
zeichenRectangle)
' Figur zeichnen
Select Case Figur
Case Figur.Kreis
Case Else
If
radioButtonHintergrundFarbe.Checked Then
zeichenflaeche.FillEllipse(pinsel, zeichenRectangle)
ElseIf radioButtonHintergrundMuster.Checked Then
Dim musterPinsel As HatchBrush = New
HatchBrush(Me.fuellStil, Me.linienFarbe, Me.hintergrundFarbe)
zeichenflaeche.FillEllipse(musterPinsel,
zeichenRectangle)
musterPinsel.Dispose()
End If
zeichenflaeche.DrawEllipse(stift, zeichenRectangle)
If (Me.Figur = Figur.Rechteck) Then
If radioButtonHintergrundFarbe.Checked Then
zeichenflaeche.FillRectangle(pinsel, zeichenRectangle)
ElseIf radioButtonHintergrundMuster.Checked Then
Dim musterPinsel As HatchBrush = New
HatchBrush(Me.fuellStil, Me.linienFarbe, Me.hintergrundFarbe)
zeichenflaeche.FillRectangle(musterPinsel,
zeichenRectangle)
musterPinsel.Dispose()
End If
zeichenflaeche.DrawRectangle(stift, zeichenRectangle)
ElseIf (Me.Figur = Figur.Linie) Then
Dim center As Int32 = ((zeichenRectangle.Top _
+
(zeichenRectangle.Bottom - Me.linienStaerke)) _
/
2)
zeichenflaeche.DrawLine(stift, New
Point(zeichenRectangle.Left, center), New
Point(zeichenRectangle.Right, center))
End If
End Select
'Stift und Pinsel löschen
stift.Dispose()
pinsel.Dispose()
End Sub

*Spoiler und VB-BBCode eingefügt*

RodFromGermany · 11. November 2018, 13:37

@BigBrain Etwas tricky:

Spoiler anzeigen

VB.NET-Quellcode

Imports System
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
Public Class Form1
Enum Figur
Kreis
Rechteck
Linie
End Enum
Private _figur As Figur
Private linienStaerke As Int32
Private linienFarbe As Color
Private hintergrundFarbe As Color
Private linienStil As DashStyle
Private fuellStil As HatchStyle
Private startGroesse As Int32
Private animationWiederholung As Int32
Private animationInterval As Int32
Private animationAktiv As Boolean
Private animationLauf As Int32
Private animationMinus As Boolean
Private animationGroesse As Int32
'für die Linienstile
Private Shared ReadOnly auswahlLinienstile() As DashStyle = {
DashStyle.Solid,
DashStyle.Dash,
DashStyle.DashDot,
DashStyle.DashDotDot,
DashStyle.Dot}
Private Shared ReadOnly Dash() As DashStyle
Private Shared DashDot() As DashStyle
Private Shared DashDotDot() As DashStyle
Private Shared Dot() As DashStyle
'für die Hintergrundmuster
Private Shared ReadOnly auswahlFuellstile() As HatchStyle = {
HatchStyle.BackwardDiagonal,
HatchStyle.Cross,
HatchStyle.DottedGrid,
HatchStyle.ForwardDiagonal,
HatchStyle.Sphere,
HatchStyle.Vertical,
HatchStyle.Wave,
HatchStyle.ZigZag}
'Private Shared HatchStyle.Cross() As HatchStyle
Private Shared DottedGrid() As HatchStyle
Private Shared ForwardDiagonal() As HatchStyle
Private Shared Sphere() As HatchStyle
Private Shared Vertical() As HatchStyle
Private Shared Wave() As HatchStyle
Private Shared ZigZag() As HatchStyle
Public Sub New()
InitializeComponent()
_figur = Figur.Kreis
End Sub
Private Sub buttonBeenden_Click(sender As Object, e As EventArgs) Handles buttonBeenden.Click
Me.Close()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.startGroesse = 100
Me.linienStaerke = 1
Me.linienFarbe = Color.Black
Me.hintergrundFarbe = Color.White
radioButtonKreis.Checked = True
'die Einträge für die Linienstile erzeugen
For Each element As DashStyle In auswahlLinienstile
listBoxLinieStil.Items.Add("")
Next
listBoxLinieStil.SelectedIndex = 0
'und für die Hintergrundmuster
For Each element As HatchStyle In auswahlFuellstile
listBoxHintergrundMuster.Items.Add("")
Next
listBoxHintergrundMuster.SelectedIndex = -1
End Sub
Private Sub buttonLinieFarbe_Click(sender As Object, e As EventArgs) Handles buttonLinieFarbe.Click
colorDialog1.Color = panelLinieFarbeVorschau.BackColor
If (colorDialog1.ShowDialog = DialogResult.OK) Then
panelLinieFarbeVorschau.BackColor = colorDialog1.Color
Me.linienFarbe = colorDialog1.Color
Me.InvalidateAnzeigePanel()
End If
End Sub
Private Sub buttonHintergrundFarbe_Click(sender As Object, e As EventArgs) Handles buttonHintergrundFarbe.Click
colorDialog1.Color = panelHintergrundFarbeVorschau.BackColor
If (colorDialog1.ShowDialog = DialogResult.OK) Then
panelHintergrundFarbeVorschau.BackColor = colorDialog1.Color
Me.hintergrundFarbe = colorDialog1.Color
If radioButtonHintergrundOhne.Checked Then
radioButtonHintergrundFarbe.Checked = True
End If
Me.InvalidateAnzeigePanel()
End If
End Sub
Private Sub InvalidateAnzeigePanel()
If Not Me.animationAktiv Then
Me.anzeigePanel.Invalidate()
End If
End Sub
Private Sub panelLinieFarbeVorschau_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles panelLinieFarbeVorschau.DoubleClick
Me.buttonLinieFarbe_Click(sender, e)
End Sub
Private Sub panelHintergrundFarbeVorschau_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles panelHintergrundFarbeVorschau.DoubleClick
Me.buttonHintergrundFarbe_Click(sender, e)
End Sub
Private Sub listBoxLinieStil_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles listBoxLinieStil.SelectedIndexChanged
If (listBoxLinieStil.SelectedIndex >= 0) Then
Me.linienStil = auswahlLinienstile(listBoxLinieStil.SelectedIndex)
Else
Me.linienStil = DashStyle.Solid
End If
Me.InvalidateAnzeigePanel()
End Sub
Private Sub listBoxLinieStil_DrawItem(ByVal sender As Object, ByVal e As DrawItemEventArgs) Handles listBoxLinieStil.DrawItem
Dim y As Int32 = CInt(((e.Bounds.Top + e.Bounds.Bottom) / 2))
e.DrawBackground()
Dim boxStift As Pen = New Pen(Color.Black)
boxStift.DashStyle = auswahlLinienstile(e.Index)
e.Graphics.DrawLine(boxStift, (e.Bounds.Left + 1), y, (e.Bounds.Right - 1), y)
boxStift.Dispose()
End Sub
Private Sub numericUpDownLinieStaerke_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles numericUpDownLinieStaerke.ValueChanged
Me.linienStaerke = CType(numericUpDownLinieStaerke.Value, Int32)
Me.InvalidateAnzeigePanel()
End Sub
Private Sub listBoxHintergrundMuster_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles listBoxHintergrundMuster.SelectedIndexChanged
If (listBoxHintergrundMuster.SelectedIndex >= 0) Then
Me.fuellStil = auswahlFuellstile(listBoxHintergrundMuster.SelectedIndex)
Me.radioButtonHintergrundMuster.Checked = True
Else
Me.radioButtonHintergrundOhne.Checked = True
Me.fuellStil = auswahlFuellstile(0)
End If
Me.InvalidateAnzeigePanel()
End Sub
Private Sub listBoxHintergrundMuster_DrawItem(ByVal sender As Object, ByVal e As DrawItemEventArgs)
e.DrawBackground()
Dim boxPinsel As HatchBrush = New HatchBrush(auswahlFuellstile(e.Index), Color.Black, Color.White)
e.Graphics.FillRectangle(boxPinsel, (e.Bounds.Left + 1), (e.Bounds.Top + 1), (e.Bounds.Width - 1), (e.Bounds.Height - 1))
boxPinsel.Dispose()
End Sub
Private Sub hintergrund_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles radioButtonHintergrundFarbe.CheckedChanged, radioButtonHintergrundMuster.CheckedChanged, radioButtonHintergrundOhne.CheckedChanged
Me.InvalidateAnzeigePanel()
End Sub
Private Sub Figur_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles radioButtonKreis.CheckedChanged, radioButtonLinie.CheckedChanged, radioButtonRechteck.CheckedChanged
If radioButtonLinie.Checked Then
_figur = Figur.Linie
ElseIf radioButtonRechteck.Checked Then
_figur = Figur.Rechteck
Else
_figur = Figur.Kreis
End If
Me.InvalidateAnzeigePanel()
End Sub
Private Sub groesseTrackbar_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles groesseTrackbar.Scroll
'die Größe der Figur ermitteln
Select Case (groesseTrackbar.Value)
Case 1
Me.startGroesse = 125
Case 2
Me.startGroesse = 100
Case 3
Case Else
Me.startGroesse = 75
End Select
Me.InvalidateAnzeigePanel()
End Sub
Private Sub numericUpDownDauer_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles numericUpDownDauer.ValueChanged
Me.animationInterval = (CType(numericUpDownDauer.Value, Int32) * 100)
End Sub
Private Sub numericUpDownWiederholungen_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles numericUpDownWiederholungen.ValueChanged
Me.animationWiederholung = CType(numericUpDownWiederholungen.Value, Int32)
End Sub
Private Sub buttonLoeschen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles buttonLoeschen.Click
'die Zeichenfläche löschen
Dim g As Graphics = Me.anzeigePanel.CreateGraphics
g.Clear(anzeigePanel.BackColor)
g.Dispose()
End Sub
Private Sub buttonStart_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles buttonStart.Click
buttonAnimation.PerformClick()
End Sub
Private Sub buttonAnimation_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles buttonAnimation.Click
Me.animationInterval = (CType(numericUpDownDauer.Value, Int32) * 100)
Me.animationWiederholung = CType(numericUpDownWiederholungen.Value, Int32)
Me.animationAktiv = Not Me.animationAktiv
animationTimer.Interval = Me.animationInterval
animationTimer.Enabled = Me.animationAktiv
Me.animationLauf = Me.animationWiederholung
Me.animationMinus = False
Me.animationGroesse = Me.startGroesse
Me.anzeigePanel.Invalidate()
End Sub
Private Sub animationTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles animationTimer.Tick
Dim minGroesse As Int32 = Me.startGroesse
Dim maxGroesse As Int32 = Math.Min(Me.anzeigePanel.ClientSize.Width,
Me.anzeigePanel.ClientSize.Height)
If _figur = Figur.Rechteck Then
minGroesse = 0
maxGroesse = 2
End If
If Me.animationMinus Then
Me.animationGroesse = (Me.animationGroesse - 1)
If (Me.animationGroesse <= minGroesse) Then
Me.animationMinus = False
'Neuer Durchlauf?
Me.animationLauf = (Me.animationLauf - 1)
If (Me.animationLauf <= 0) Then
Me.animationAktiv = False
animationTimer.Enabled = False
End If
End If
Else
Me.animationGroesse = (Me.animationGroesse + 1)
If (Me.animationGroesse >= maxGroesse) Then
Me.animationMinus = True
End If
End If
System.Diagnostics.Debug.WriteLine("Animation: {0} / {1}",
Me.animationGroesse, Me.animationMinus)
Me.anzeigePanel.Invalidate()
End Sub
Private Sub anzeigePanel_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles anzeigePanel.Paint
Dim zeichenflaeche As Graphics = e.Graphics
zeichenflaeche.SmoothingMode = SmoothingMode.AntiAlias
Dim stift As Pen = New Pen(Me.linienFarbe)
Dim pinsel As SolidBrush = New SolidBrush(Me.hintergrundFarbe)
stift.Width = Me.linienStaerke
stift.DashStyle = Me.linienStil
' Zeichenrechteck bestimmen, Vorschau fix / Animation fliessend
Dim offset As Int32 = Me.startGroesse
If Me.animationAktiv Then
offset = Me.animationGroesse
End If
Dim zeichenRectangle As Rectangle = Rectangle.Inflate(anzeigePanel.ClientRectangle, (offset * -1), (offset * -1))
System.Diagnostics.Debug.WriteLine("Größe: {0}", zeichenRectangle)
' Figur zeichnen
Select Case _figur
Case Figur.Kreis
'Case Else
If radioButtonHintergrundFarbe.Checked Then
zeichenflaeche.FillEllipse(pinsel, zeichenRectangle)
ElseIf radioButtonHintergrundMuster.Checked Then
Dim musterPinsel As HatchBrush = New HatchBrush(Me.fuellStil, Me.linienFarbe, Me.hintergrundFarbe)
zeichenflaeche.FillEllipse(musterPinsel, zeichenRectangle)
musterPinsel.Dispose()
End If
zeichenflaeche.DrawEllipse(stift, zeichenRectangle)
Case Figur.Rechteck
If radioButtonHintergrundFarbe.Checked Then
zeichenflaeche.FillRectangle(pinsel, zeichenRectangle)
ElseIf radioButtonHintergrundMuster.Checked Then
Dim musterPinsel As HatchBrush = New HatchBrush(Me.fuellStil, Me.linienFarbe, Me.hintergrundFarbe)
zeichenflaeche.FillRectangle(musterPinsel, zeichenRectangle)
musterPinsel.Dispose()
End If
zeichenflaeche.DrawRectangle(stift, zeichenRectangle)
Case Figur.Linie
Dim center As Int32 = ((zeichenRectangle.Top + (zeichenRectangle.Bottom - Me.linienStaerke)) \ 2)
zeichenflaeche.DrawLine(stift, New Point(zeichenRectangle.Left, center), New Point(zeichenRectangle.Right, center))
End Select
'Stift und Pinsel löschen
stift.Dispose()
pinsel.Dispose()
End Sub
End Class

MrTrebron · 11. November 2018, 14:30

Herzlichen Glückwünsch dass du wieder keine Code- und Spoiler Tags benutzt.

Nur mal so, erhält @RodFromGermany eigentlich deine Note in der Weiterbildung?
Du suchst dir zu eine Aufgabe C++ Code den dem nicht versteht, lässt dir den hier in korrektes VB.net über setzen und hast dann Was in der Weiterbildung gelernt?

BigBrain · 11. November 2018, 15:06

...Klasse !!! bis auf das Rechteck funzt der Code... den versuche ich dann mal zu richten, ansonsten melde ich mich... du bist echt SUPER..ich denke hier habe ich einen Freak kennengelernt

Mein Studium ist gerettet!
Ach, die Linie soll vertikal sein, hier muss ich doch nur die Koordinaten ändern oder??? Danke..

Grüße

@MrTrebron
...es ist kein Meister vom Himmel gefallen, auch du/Sie warst/waren mal Anfänger...im Übrigen, ich muss mich ja nicht rechtfertigen aber ich hatte diesen Code fasst in VB hinbekommen, jedoch fehlt halt mir immer noch die Erfahrung. Aber dennoch VIELEN DANK an solche Teilnehmer die Anfänger so Wilkommen heißen!

RodFromGermany · 11. November 2018, 15:51

BigBrain schrieb:

Ach, die Linie soll vertikal sein

Das schaffst Du aber bittallein.
Im Original war sie auch waagerecht.

MrTrebron · 11. November 2018, 19:30

Tja, es heißt aber auch Übung macht den Meister. Nicht Copy & Paste.

Deinen VB.net Code hast du nicht gelistet, nicht mal einen Pseudo-Code in dem Du uns Deine Idee zeigt.

Ich sehe nur "Habe ich gefunden, kann ich aber nicht über setzen.

BigBrain · 20. November 2018, 15:36

@RodFromGermany
Hallo,
ich bins wieder, ich benötige deine Hilfe bei der Linie. Ich habe alles mögliche versucht, aber die sch... vertikale Linie bekomme ich nicht hin!.Ich bin am verzweifeln:

Die folgenden Codes habe ich versucht...

VB.NET-Quellcode

Case Figur.Linie
'Dim center As Integer = ((zeichenRectangle.Top + (zeichenRectangle.Bottom - Me.linienStaerke)) \ 2)
'zeichenflaeche.DrawLine(stift, New Point(zeichenRectangle.Left, center), New Point(zeichenRectangle.Right, center))
'Dim mid As New PointF
'e.Graphics.DrawLine(stift, mid, New Point(zeichenRectangle.Left + (zeichenRectangle.Width / 2), zeichenRectangle.Top + zeichenRectangle.Height))
'e.Graphics.DrawLine(stift, mid, New Point(zeichenRectangle.Left + (zeichenRectangle.Width / 2), zeichenRectangle.Top))
'zeichnet von oben links nach unten rechts
'e.Graphics.DrawLine(stift, zeichenRectangle.Width / 2, zeichenRectangle.Width / 2, zeichenRectangle.Top)
'e.Graphics.DrawLine(stift, mid, New Point(zeichenRectangle.Left, zeichenRectangle.Top + (zeichenRectangle.Height / 2)))
'zeichnet ein X
e.Graphics.DrawLine(stift, zeichenRectangle.Left, zeichenRectangle.Top, zeichenRectangle.Right, zeichenRectangle.Bottom)
'e.Graphics.DrawLine(stift, zeichenRectangle.Left, zeichenRectangle.Bottom, zeichenRectangle.Right, zeichenRectangle.Top)
'Das ist der String den wir im Übungsheft hatten...
'Dim xMax As Integer = zeichenRectangle.Right - 1
'Dim yMax As Integer = zeichenRectangle.Bottom - 1
'Dim xPos As Integer = 0, yPos As Integer = 0
'While yPos < yMax
'While xPos < xMax
'e.Graphics.DrawLine(stift, xPos, 0, xPos, yPos)
'xPos = xPos + 10
'End While
'End While

Irgendwo ist der Wurm drin. Danke dir schon vorab.

Code-Tag repariert. ~Thunderbolt

RodFromGermany · 20. November 2018, 16:17

@BigBrain Kannst Du mal Deinen Code so formatieren, dass wir Code von Nicht-Code unterscheiden können?
Der [ vbnet ]CODE MUSS HIER STEHEN[ /vbnet ]. {ohne Leerzeichen}
Editiere Deine Post.

BigBrain · 20. November 2018, 16:24

ich habe als Anhang hinzugefügt...

RodFromGermany · 20. November 2018, 16:25

@BigBrain Würdest Du Dir so einen Code ansehen, wie Deinen eben geposteten?

FormFollowsFunction · 20. November 2018, 16:28

RodFromGermany schrieb:

Editiere Deine Post.

Nicht noch einen missglücken post erstellen, sondern editieren !

BigBrain · 20. November 2018, 17:10

...sorry, aber ich habe es nun als Anhang hinzugefügt...

MrTrebron · 20. November 2018, 17:13

Wie wäre es wenn Du die Code Tags benutzt?

BigBrain · 20. November 2018, 21:27

...hat jemand nun einen Lösungsvorschlag für mich???
Danke

RodFromGermany · 21. November 2018, 06:19

BigBrain schrieb:

Lösungsvorschlag

Ich habe Dir ein komplettes Programm von CLI über C# nach VB.NET übersetzt, offensichtlich hat Dir das nicht geholfen

.
Du müsstest lediglich eine einzige Zeile des Codes modifizieren und feddich.
Leider bist Du weder in der Lage, diese Zeile zu identifizieren,
noch kannst Du Quellcode als solchen markieren, obwohl Du das in Post #1 und in Post #5 schon mal richtig gemacht hast.
In Ermangelung von Eigeninitiative verbunden mit Beratungsresistenz bin ich dann mal draußen.

Facebamm · 21. November 2018, 12:02

Warum gehst du erst über C# und dann zu VB.Net und nicht direkt zu VB.Net Oo

C++ Konvertierung nach Visual Basic

C++ Konvertierung nach Visual Basic

Quellcode

C#-Quellcode

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

BigBrain schrieb:

VB.NET-Quellcode

RodFromGermany schrieb:

BigBrain schrieb:

Ähnliche Themen

5 Benutzer haben hier geschrieben