Nextrek

URLs

Explore

Commits

Diff Revisions 54 vs 55 for /minstrek/GameEditorBKP - Copia/GameEditor/Form1.vb

     Private storyNowLoaded As String = ""
     Private buttonsShown As Dictionary(Of Integer, Boolean) = New Dictionary(Of Integer, Boolean)
     Private Sub GameEditorPanel_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
         Me.buttonsShown.Add(1, True)
         For i As Integer = 2 To 6
     End Sub
     '**********************************************UTILITIES***************************************************************************
     '*********************************************************************************************************************************
     Private Function convertToHex(ByVal color As System.Drawing.Color)
         Dim r As Byte = color.R
         Dim g As Byte = color.G
     Private Function getSavedPath() As String
         Return Application.StartupPath + "\saves\"
     End Function
     Private Function getMinstrekPath() As String
         Return Application.StartupPath + "\MinsTrek\"
     End Function
         Dim text As String = textBox.Text
         Return (Not text = "") And (Not text = "not valid") And (Not text = " page not created")
     End Function
     Private Function checkPrePostCondTextInTB(ByVal textBox As TextBox) As Boolean
         Dim text As String = textBox.Text
         Return (Not text = " quest not created") And (Not text = " page not created") And (Not text = " object not created") And (Not text = "format: object1,object2,object3,....")
     End Function
     Private Sub WarningCloseLabe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WarningCloseLabe.Click
         WarningPanel.Hide()
         WarningCancelButton.Visible = False
         WarningPanel.Show()
     End Sub
     Private Sub WarningCancelButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WarningCancelButton.Click
         WarningPanel.Hide()
         WarningCancelButton.Visible = False
     End Sub
     '******************************************************************MENU********************************************************************************
     '***********************************************************************************************************************************
     Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
         showSavePopup()
     End Sub
     End Sub
     Private Sub loadStory(ByVal storyName As String)
         Dim map As String()
         Dim line As String
         fw.Close()
     End Sub
     Private Sub PagesfromTxtToJson(ByVal storyName As String)
         Dim map, map2, map3 As String()
         End If
     End Sub
     Private Sub WarningContinueButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WarningContinueButton.Click
         Dim storyName As String = WarningSaveStoryNameText.Text
         End If
     End Sub
     '****************************************************************GENERAL SETTINGS****************************************************************************
     '****************************************************************************************************************************************
     Private Sub GameTitleText_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GameTitleText.Leave
         GameTitleText.ForeColor = Color.Black
         If (GameTitleText.Text = "") Then
     End Sub
     Private Sub BGText_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BGText.Click
         Me.setColor(BGText)
     End Sub
     Private Sub TopAreaBGText_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TopAreaBGText.Click
         Me.setColor(TopAreaBGText)
         End Try
     End Sub
     Private Sub TitleColorText_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TitleColorText.Click
         Me.setColor(TitleColorText)
     End Sub
     Private Sub TopHorizontalBorderText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TopHorizontalBorderIMGText.Click
         Me.setImage(TopHorizontalBorderIMGText, TopHorizontalBorderPic, "")
         Me.setImage(BottomHorizontalBorderIMGText, BottomHorizontalBorderPic, "")
     End Sub
     Private Sub MidHorizontalBorderText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MidHorizontalBorderIMGText.Click
         Me.setImage(MidHorizontalBorderIMGText, MidHorizontalBorderPic, "")
     End Sub
         Me.checkIfInt16(EventsImagesHeightText)
     End Sub
     '****************************************************SPLASH*********************************************************************
     '****************************************************************************************************************************************
     Private Sub SplashTimeText_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SplashTimeText.Leave
         SplashTimeText.ForeColor = Color.Black
         Try
         Me.setColor(SplashTextColorText)
     End Sub
     '************************************************************LOADING*********************************************************************
     '****************************************************************************************************************************************
     Private Sub LoadingTimeText_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoadingTimeText.Leave
         LoadingTimeText.ForeColor = Color.Black
         Try
         Me.setImage(LoadingForegroundIMGText, LoadingForegroundPic, "")
     End Sub
     Private Sub LoadingTextColorText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoadingTextColorText.Click
         Me.setColor(LoadingTextColorText)
     End Sub
     '***************************************************OBJECTS*****************************************************************************
     '****************************************************************************************************************************************
     Private Sub ObjectImageText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ObjectIMGText.Click
         Dim dr As DialogResult
     End Function
     Private Sub DeleteRowToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteRowToolStripMenuItem.Click
         If (Not ObjectsGrid.SelectedRows.Count = 0) Then
             Dim row = ObjectsGrid.SelectedRows.Item(0)
         End If
     End Sub
     '****************************************************EVENTS************************************************************************************************
     '**********************************************************************************************************************************************************
     End Function
     Private Sub DeleteHighlightedRowToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteHighlightedRowToolStripMenuItem.Click
         If (Not EventsGrid.SelectedRows.Count = 0) Then
             Dim row = EventsGrid.SelectedRows.Item(0)
         End If
     End Sub
     '**********************************************************QUESTS*****************************************************************************************
     '*********************************************************************************************************************************************************
     Private Sub QuestImageText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuestIMGText.Click
         Dim dr As DialogResult
         Dim path As String
     End Function
     Private Sub DeleteHighlightedRowToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteHighlightedRowToolStripMenuItem1.Click
         If (Not QuestsGrid.SelectedRows.Count = 0) Then
             Dim row = QuestsGrid.SelectedRows.Item(0)
         End If
     End Sub
     '*******************************************************PAGES**********************************************************************************
     '**********************************************************************************************************************************************
     Private Sub PageBGText_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PageBGText.Click
         Me.setColor(PageBGText)
     End Sub
     Private Sub PageTopAreaBGText_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PageTopAreaBGText.Click
         Me.setColor(PageTopAreaBGText)
     End Sub
     Private Sub PageTitleColorText_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PageTitleColorText.Click
         Me.setColor(PageTitleColorText)
         Me.setImage(PageBottomHorizontalBorderIMGText, PageBottomHorizontalBorderPic, "")
     End Sub
     Private Sub PageBottomAreaImgText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
         Me.setImage(PageBottomAreaImgText, Nothing, "")
     End Sub
         Me.setImage(PageEventsIconIMGText, PageEventsIconPic, "")
     End Sub
     Private Sub PageTitleText_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs)
         PageTitleText.ForeColor = Color.Black
         If (PageTitleText.Text = "") Then
         End If
     End Sub
     Private Sub PageIDText_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs)
         Dim valid As Boolean = True
         Dim text As String = PageIDText.Text
         GameEditorTabs.SelectTab(ButtonsTabPage)
     End Sub
     Private Sub CreatePageButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreatePageButton.Click
         End If
     End Sub
     '**********************************************************BUTTONS**************************************************************************************
     '***************************************************************************************************************************************************************
     Private Sub PreconditionObjectsOText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PreconditionObjectsOText.MouseDown
         If (Me.firstTime) Then
             PreconditionObjectsOText.Text = ""
         End If
     End Sub
     Private Sub PreconditionObjectsOText_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PreconditionObjectsOText.Leave
         End If
     End Sub
     Private Sub PreconditionQuestsSText_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PreconditionQuestsSText.Leave
         If (Not checkConditionIDS(PreconditionQuestsSText, QuestsGrid)) Then
             PreconditionQuestsSText.Text = " quest not created"
             PreconditionQuestsSText.ForeColor = Color.Red
         End If
     End Sub
     Private Sub PreconditionQuestsDText_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PreconditionQuestsDText.Leave
         If (Not checkConditionIDS(PreconditionQuestsDText, QuestsGrid)) Then
             PreconditionQuestsDText.Text = " quest not created"
         End If
     End Sub
     Private Sub PostconditionObjectsOText_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PostconditionObjectsOText.Leave
         If (Not checkConditionIDS(PostconditionObjectsOText, ObjectsGrid)) Then
             PostconditionObjectsOText.Text = " object not created"
         End If
     End Sub
     Private Sub PostconditionEventsOText_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PostconditionEventsOText.Leave
         If (Not checkConditionIDS(PostconditionEventsOText, EventsGrid)) Then
             PostconditionEventsOText.Text = " event not created"
         End If
     End Sub
     Private Sub PageButtonIDText_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PageButtonIDText.Leave
     End Sub
     '  Private Sub PageButtonTextText_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs)
     'Dim text As String = PageButtonTextText.Text
     '   PageButtonTextText.ForeColor = Color.Black
     '    End If
     ' End Sub
     Private Sub PageButtonIMGText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PageButtonIMGText.Click
         Me.setImage(PageButtonIMGText, PageButtonIMGPic, "")
     End Sub
     Private Sub CreateButtonButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreateButtonButton.Click
     End Sub
     Private Sub DeleteHighlightedRowToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteHighlightedRowToolStripMenuItem3.Click
         If (Not PageButtonGrid.SelectedRows.Count = 0) Then
             Dim row = PageButtonGrid.SelectedRows.Item(0)
         End If
     End Sub
     Private Sub filterButtonButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles filterButtonButton.Click
         Dim pageId As String = PageButtonIDText.Text
     End Sub
     '***********************************************************************ALERT***************************************************************************
     '*********************************************************************************************************************************************************
     Private Sub AlertBGColorText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AlertBGColorText.Click
         Me.setColor(AlertBGColorText)
     End Sub
         Me.setImage(AlertTopBGIMGText, AlertTopBGIMGPic, "")
     End Sub
     Private Sub AlertLeftBGIMGText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AlertLeftBGIMGText.Click
         Me.setImage(AlertLeftBGIMGText, AlertLeftBGIMGPic, "")
     End Sub
         Me.setImage(AlertRightBGIMGText, AlertRightBGIMGPic, "")
     End Sub
     Private Sub AlertBGIMGText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AlertBGIMGText.Click
         Me.setImage(AlertBGIMGText, AlertBGIMGPic, "")
     End Sub
         Me.setImage(AlertBottomBGIMGText, AlertBottomBGIMGPic, "")
     End Sub
     '*************************************************************PAGE & BUTTON**************************************************************************'
     '*****************************************************************************************************************************************************
     Private Sub B1PreconditionObjectsOText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1PreconditionObjectsOText.MouseEnter
         B1PreconditionObjectsOText.Size = New System.Drawing.Size(150, 38)
         B1PreconditionObjectsOText.BringToFront()
         B1PreconditionEventsNOText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B1PostconditionEventsOText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1PostconditionEventsOText.MouseEnter
         B1PostconditionEventsOText.Size = New System.Drawing.Size(150, 38)
         B1PostconditionEventsOText.BringToFront()
         B1PostconditionEventsNOText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B1PreconditionQuestsNText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1PreconditionQuestsNText.MouseEnter
         B1PreconditionQuestsNText.Size = New System.Drawing.Size(150, 38)
         B1PreconditionQuestsNText.BringToFront()
     End Sub
     Private Sub B1PreconditionQuestsNText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1PreconditionQuestsNText.MouseLeave
         B1PreconditionQuestsNText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B1PreconditionQuestsSText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1PreconditionQuestsSText.MouseEnter
         B1PreconditionQuestsSText.Size = New System.Drawing.Size(150, 38)
         B1PreconditionQuestsSText.BringToFront()
     End Sub
     Private Sub B1PreconditionQuestsSText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1PreconditionQuestsSText.MouseLeave
         B1PreconditionQuestsSText.Size = New System.Drawing.Size(72, 21)
     End Sub
         B1PreconditionQuestsDText.BringToFront()
     End Sub
     Private Sub B1PreconditionQuestsDText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1PreconditionQuestsDText.MouseLeave
         B1PreconditionQuestsDText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B1PostconditionQuestsNText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1PostconditionQuestsNText.MouseEnter
         B1PostconditionQuestsNText.Size = New System.Drawing.Size(150, 38)
         B1PostconditionQuestsNText.BringToFront()
     End Sub
     Private Sub B1PostconditionQuestsNText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1PostconditionQuestsNText.MouseLeave
         B1PostconditionQuestsNText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B1PostconditionQuestsSText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1PostconditionQuestsSText.MouseEnter
         B1PostconditionQuestsSText.Size = New System.Drawing.Size(150, 38)
         B1PostconditionQuestsSText.BringToFront()
     End Sub
     Private Sub B1PostconditionQuestsSText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1PostconditionQuestsSText.MouseLeave
         B1PostconditionQuestsSText.Size = New System.Drawing.Size(72, 21)
     End Sub
         B1PostconditionQuestsDText.BringToFront()
     End Sub
     Private Sub B1PostconditionQuestsDText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1PostconditionQuestsDText.MouseLeave
         B1PostconditionQuestsDText.Size = New System.Drawing.Size(72, 21)
     End Sub
+    '***********************************************************************END BUTTON1***************************************************
+    '***********************************************************************END BUTTON1***************************************************
     Private Sub B2PreconditionObjectsOText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2PreconditionObjectsOText.MouseEnter
         B2PreconditionObjectsOText.Size = New System.Drawing.Size(150, 38)
         B2PreconditionEventsNOText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B2PostconditionEventsOText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2PostconditionEventsOText.MouseEnter
         B2PostconditionEventsOText.Size = New System.Drawing.Size(150, 38)
         B2PostconditionEventsOText.BringToFront()
         B2PostconditionEventsNOText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B2PreconditionQuestsNText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2PreconditionQuestsNText.MouseEnter
         B2PreconditionQuestsNText.Size = New System.Drawing.Size(150, 38)
         B2PreconditionQuestsNText.BringToFront()
     End Sub
     Private Sub B2PreconditionQuestsNText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2PreconditionQuestsNText.MouseLeave
         B2PreconditionQuestsNText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B2PreconditionQuestsSText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2PreconditionQuestsSText.MouseEnter
         B2PreconditionQuestsSText.Size = New System.Drawing.Size(150, 38)
         B2PreconditionQuestsSText.BringToFront()
     End Sub
     Private Sub B2PreconditionQuestsSText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2PreconditionQuestsSText.MouseLeave
         B2PreconditionQuestsSText.Size = New System.Drawing.Size(72, 21)
     End Sub
         B2PreconditionQuestsDText.BringToFront()
     End Sub
     Private Sub B2PreconditionQuestsDText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2PreconditionQuestsDText.MouseLeave
         B2PreconditionQuestsDText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B2PostconditionQuestsNText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2PostconditionQuestsNText.MouseEnter
         B2PostconditionQuestsNText.Size = New System.Drawing.Size(150, 38)
         B2PostconditionQuestsNText.BringToFront()
     End Sub
     Private Sub B2PostconditionQuestsNText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2PostconditionQuestsNText.MouseLeave
         B2PostconditionQuestsNText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B2PostconditionQuestsSText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2PostconditionQuestsSText.MouseEnter
         B2PostconditionQuestsSText.Size = New System.Drawing.Size(150, 38)
         B2PostconditionQuestsSText.BringToFront()
     End Sub
     Private Sub B2PostconditionQuestsSText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2PostconditionQuestsSText.MouseLeave
         B2PostconditionQuestsSText.Size = New System.Drawing.Size(72, 21)
     End Sub
         B2PostconditionQuestsDText.BringToFront()
     End Sub
     Private Sub B2PostconditionQuestsDText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2PostconditionQuestsDText.MouseLeave
         B2PostconditionQuestsDText.Size = New System.Drawing.Size(72, 21)
     End Sub
     '*************************************************************************END BUTTON2*************************************************
     Private Sub B3PreconditionObjectsOText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3PreconditionObjectsOText.MouseEnter
         B3PreconditionObjectsOText.Size = New System.Drawing.Size(150, 38)
         B3PreconditionObjectsOText.BringToFront()
         B3PreconditionEventsNOText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B3PostconditionEventsOText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3PostconditionEventsOText.MouseEnter
         B3PostconditionEventsOText.Size = New System.Drawing.Size(150, 38)
         B3PostconditionEventsOText.BringToFront()
         B3PostconditionEventsNOText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B3PreconditionQuestsNText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3PreconditionQuestsNText.MouseEnter
         B3PreconditionQuestsNText.Size = New System.Drawing.Size(150, 38)
         B3PreconditionQuestsNText.BringToFront()
     End Sub
     Private Sub B3PreconditionQuestsNText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3PreconditionQuestsNText.MouseLeave
         B3PreconditionQuestsNText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B3PreconditionQuestsSText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3PreconditionQuestsSText.MouseEnter
         B3PreconditionQuestsSText.Size = New System.Drawing.Size(150, 38)
         B3PreconditionQuestsSText.BringToFront()
     End Sub
     Private Sub B3PreconditionQuestsSText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3PreconditionQuestsSText.MouseLeave
         B3PreconditionQuestsSText.Size = New System.Drawing.Size(72, 21)
     End Sub
         B3PreconditionQuestsDText.BringToFront()
     End Sub
     Private Sub B3PreconditionQuestsDText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3PreconditionQuestsDText.MouseLeave
         B3PreconditionQuestsDText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B3PostconditionQuestsNText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3PostconditionQuestsNText.MouseEnter
         B3PostconditionQuestsNText.Size = New System.Drawing.Size(150, 38)
         B3PostconditionQuestsNText.BringToFront()
     End Sub
     Private Sub B3PostconditionQuestsNText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3PostconditionQuestsNText.MouseLeave
         B3PostconditionQuestsNText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B3PostconditionQuestsSText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3PostconditionQuestsSText.MouseEnter
         B3PostconditionQuestsSText.Size = New System.Drawing.Size(150, 38)
         B3PostconditionQuestsSText.BringToFront()
     End Sub
     Private Sub B3PostconditionQuestsSText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3PostconditionQuestsSText.MouseLeave
         B3PostconditionQuestsSText.Size = New System.Drawing.Size(72, 21)
     End Sub
         B3PostconditionQuestsDText.BringToFront()
     End Sub
     Private Sub B3PostconditionQuestsDText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3PostconditionQuestsDText.MouseLeave
         B3PostconditionQuestsDText.Size = New System.Drawing.Size(72, 21)
     End Sub
     '**************************************************END BUTTON3************************************************************************+
     Private Sub B4PreconditionObjectsOText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4PreconditionObjectsOText.MouseEnter
         B4PreconditionObjectsOText.Size = New System.Drawing.Size(150, 38)
         B4PreconditionObjectsOText.BringToFront()
         B4PreconditionEventsNOText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B4PostconditionEventsOText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4PostconditionEventsOText.MouseEnter
         B4PostconditionEventsOText.Size = New System.Drawing.Size(150, 38)
         B4PostconditionEventsOText.BringToFront()
         B4PostconditionEventsNOText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B4PreconditionQuestsNText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4PreconditionQuestsNText.MouseEnter
         B4PreconditionQuestsNText.Size = New System.Drawing.Size(150, 38)
         B4PreconditionQuestsNText.BringToFront()
     End Sub
     Private Sub B4PreconditionQuestsNText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4PreconditionQuestsNText.MouseLeave
         B4PreconditionQuestsNText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B4PreconditionQuestsSText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4PreconditionQuestsSText.MouseEnter
         B4PreconditionQuestsSText.Size = New System.Drawing.Size(150, 38)
         B4PreconditionQuestsSText.BringToFront()
     End Sub
     Private Sub B4PreconditionQuestsSText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4PreconditionQuestsSText.MouseLeave
         B4PreconditionQuestsSText.Size = New System.Drawing.Size(72, 21)
     End Sub
         B4PreconditionQuestsDText.BringToFront()
     End Sub
     Private Sub B4PreconditionQuestsDText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4PreconditionQuestsDText.MouseLeave
         B4PreconditionQuestsDText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B4PostconditionQuestsNText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4PostconditionQuestsNText.MouseEnter
         B4PostconditionQuestsNText.Size = New System.Drawing.Size(150, 38)
         B4PostconditionQuestsNText.BringToFront()
     End Sub
     Private Sub B4PostconditionQuestsNText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4PostconditionQuestsNText.MouseLeave
         B4PostconditionQuestsNText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B4PostconditionQuestsSText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4PostconditionQuestsSText.MouseEnter
         B4PostconditionQuestsSText.Size = New System.Drawing.Size(150, 38)
         B4PostconditionQuestsSText.BringToFront()
     End Sub
     Private Sub B4PostconditionQuestsSText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4PostconditionQuestsSText.MouseLeave
         B4PostconditionQuestsSText.Size = New System.Drawing.Size(72, 21)
     End Sub
         B4PostconditionQuestsDText.BringToFront()
     End Sub
     Private Sub B4PostconditionQuestsDText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4PostconditionQuestsDText.MouseLeave
         B4PostconditionQuestsDText.Size = New System.Drawing.Size(72, 21)
     End Sub
     '****************************************************************END BUTTON 4***************************************************************
     Private Sub B5PreconditionObjectsOText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5PreconditionObjectsOText.MouseEnter
         B5PreconditionObjectsOText.Size = New System.Drawing.Size(150, 38)
         B5PreconditionObjectsOText.BringToFront()
         B5PreconditionEventsNOText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B5PostconditionEventsOText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5PostconditionEventsOText.MouseEnter
         B5PostconditionEventsOText.Size = New System.Drawing.Size(150, 38)
         B5PostconditionEventsOText.BringToFront()
         B5PostconditionEventsNOText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B5PreconditionQuestsNText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5PreconditionQuestsNText.MouseEnter
         B5PreconditionQuestsNText.Size = New System.Drawing.Size(150, 38)
         B5PreconditionQuestsNText.BringToFront()
     End Sub
     Private Sub B5PreconditionQuestsNText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5PreconditionQuestsNText.MouseLeave
         B5PreconditionQuestsNText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B5PreconditionQuestsSText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5PreconditionQuestsSText.MouseEnter
         B5PreconditionQuestsSText.Size = New System.Drawing.Size(150, 38)
         B5PreconditionQuestsSText.BringToFront()
     End Sub
     Private Sub B5PreconditionQuestsSText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5PreconditionQuestsSText.MouseLeave
         B5PreconditionQuestsSText.Size = New System.Drawing.Size(72, 21)
     End Sub
         B5PreconditionQuestsDText.BringToFront()
     End Sub
     Private Sub B5PreconditionQuestsDText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5PreconditionQuestsDText.MouseLeave
         B5PreconditionQuestsDText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B5PostconditionQuestsNText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5PostconditionQuestsNText.MouseEnter
         B5PostconditionQuestsNText.Size = New System.Drawing.Size(150, 38)
         B5PostconditionQuestsNText.BringToFront()
     End Sub
     Private Sub B5PostconditionQuestsNText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5PostconditionQuestsNText.MouseLeave
         B5PostconditionQuestsNText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B5PostconditionQuestsSText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5PostconditionQuestsSText.MouseEnter
         B5PostconditionQuestsSText.Size = New System.Drawing.Size(150, 38)
         B5PostconditionQuestsSText.BringToFront()
     End Sub
     Private Sub B5PostconditionQuestsSText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5PostconditionQuestsSText.MouseLeave
         B5PostconditionQuestsSText.Size = New System.Drawing.Size(72, 21)
     End Sub
         B5PostconditionQuestsDText.BringToFront()
     End Sub
     Private Sub B5PostconditionQuestsDText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5PostconditionQuestsDText.MouseLeave
         B5PostconditionQuestsDText.Size = New System.Drawing.Size(72, 21)
     End Sub
     '*******************************************************************END BUTTON5*****************************************************************************
     Private Sub B6PreconditionObjectsOText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6PreconditionObjectsOText.MouseEnter
         B6PreconditionObjectsOText.Size = New System.Drawing.Size(150, 38)
         B6PreconditionObjectsOText.BringToFront()
         B6PreconditionEventsNOText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B6PostconditionEventsOText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6PostconditionEventsOText.MouseEnter
         B6PostconditionEventsOText.Size = New System.Drawing.Size(150, 38)
         B6PostconditionEventsOText.BringToFront()
         B6PostconditionEventsNOText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B6PreconditionQuestsNText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6PreconditionQuestsNText.MouseEnter
         B6PreconditionQuestsNText.Size = New System.Drawing.Size(150, 38)
         B6PreconditionQuestsNText.BringToFront()
     End Sub
     Private Sub B6PreconditionQuestsNText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6PreconditionQuestsNText.MouseLeave
         B6PreconditionQuestsNText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B6PreconditionQuestsSText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6PreconditionQuestsSText.MouseEnter
         B6PreconditionQuestsSText.Size = New System.Drawing.Size(150, 38)
         B6PreconditionQuestsSText.BringToFront()
     End Sub
     Private Sub B6PreconditionQuestsSText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6PreconditionQuestsSText.MouseLeave
         B6PreconditionQuestsSText.Size = New System.Drawing.Size(72, 21)
     End Sub
         B6PreconditionQuestsDText.BringToFront()
     End Sub
     Private Sub B6PreconditionQuestsDText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6PreconditionQuestsDText.MouseLeave
         B6PreconditionQuestsDText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B6PostconditionQuestsNText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6PostconditionQuestsNText.MouseEnter
         B6PostconditionQuestsNText.Size = New System.Drawing.Size(150, 38)
         B6PostconditionQuestsNText.BringToFront()
     End Sub
     Private Sub B6PostconditionQuestsNText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6PostconditionQuestsNText.MouseLeave
         B6PostconditionQuestsNText.Size = New System.Drawing.Size(72, 21)
     End Sub
     Private Sub B6PostconditionQuestsSText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6PostconditionQuestsSText.MouseEnter
         B6PostconditionQuestsSText.Size = New System.Drawing.Size(150, 38)
         B6PostconditionQuestsSText.BringToFront()
     End Sub
     Private Sub B6PostconditionQuestsSText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6PostconditionQuestsSText.MouseLeave
         B6PostconditionQuestsSText.Size = New System.Drawing.Size(72, 21)
     End Sub
         B6PostconditionQuestsDText.BringToFront()
     End Sub
     Private Sub B6PostconditionQuestsDText_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6PostconditionQuestsDText.MouseLeave
         B6PostconditionQuestsDText.Size = New System.Drawing.Size(72, 21)
     End Sub
     '**********************************************************************END BUTTON6*****************************************************************
     Private Sub PageTopAreaImg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PageTopAreaImg.Click
         setImage(PageTopAreaImgText, PageTopAreaImg, "")
     End Sub
     'aggiorna una CheckedListBox secondo la datagridview passata come parametro
     Private Sub updateCheckedListBox(ByVal checkedListBox As CheckedListBox, ByVal data As DataGridView)
         Dim value As String
         Next
     End Sub
     Private Sub updateOEQCheckedListBoxes()
         updateObjectCheckedListBoxes()
     End Sub
     Private Sub AddButtonButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddButtonButton.Click
         Dim button As Byte = 0
     End Sub
     Private Sub B2DeleteButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2DeleteButton.Click
         hideButton(2)
         Me.buttonsShown.Item(2) = False
     End Sub
     Private Sub B3DeleteButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3DeleteButton.Click
         hideButton(3)
         Me.buttonsShown.Item(3) = False
     End Sub
     Private Sub B4DeleteButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4DeleteButton.Click
         hideButton(4)
         Me.buttonsShown.Item(4) = False
     End Sub
     Private Sub B5DeleteButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5DeleteButton.Click
         hideButton(5)
         Me.buttonsShown.Item(5) = False
     End Sub
     Private Sub B6DeleteButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6DeleteButton.Click
         hideButton(6)
         Me.buttonsShown.Item(6) = False
     End Sub
     Private Sub PageIdDoneButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PageIdDoneButton.Click
         Dim row As String() = New String(19) {}
         End If
     End Sub
     'salva un bottone
     Private Sub addButton(ByVal buttonNumber As Integer)
         Dim id As String = ""
         Next
     End Sub
     'mostra i bottoni di una pagina
     Private Sub fillButtons(ByVal pageId As String)
         Dim cellsArray As ArrayList = New ArrayList()
         fillPage(pageId)
         fillButtons(pageId)
     End Sub
+    '**************************************************************************MORE OPTIONS PANEL*****************************************************************
+    '**************************************************************************MORE OPTIONS PANEL*****************************************************************
     Private Sub PageMoreOptionCloseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PageMoreOptionCloseButton.Click
         PageMoreOptionPanel.Hide()
     End Sub
     Private Sub PageMoreOptionDoneButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PageMoreOptionDoneButton.Click
         PageMoreOptionPanel.Hide()
     End Sub
         PageMoreOptionPanel.Show()
     End Sub
 End Class

View View this file contents

History View the full history

Feeds

Commits for /minstrek/GameEditorBKP - Copia/GameEditor/Form1.vb