#Tutoriais In-Game System

por RenanR Qua 27 Fev 2013, 17:23

Nesse tutorial você clica em Tutoriais no menu do jogo (frmMirage), logo aparece uma pic onde há uma lista de tutoriais para o jogador ler (esses tutoriais são em arquivos de textos).

#1 - Criando tutoriais
Primeiramente, crie uma pasta dentro da pasta GFX do cliente, chamada "Tutoriais" (sem aspas), e dentro crie arquivos de textos, com o nome do tutorial e dentro coloque o tutorial.

#2 - Interface
Vamos abrir a source do cliente agora, logo abra a frmMirage, e crie uma picturebox chamada picTutoList , com propriedade visible=false. Dentro, coloque um FileListBox chamado flsTutos . E uma label com caption X para fechar com nome de lblTutosX

Agora crie outra picturebox bem grande, com um textbox bem grande também. Coloque o nome da pic como "picTuto" (sem aspas). E o nome do textbox ponha "txtTuto" (sem aspas), e propriedade Multiline=True. E tambem crie uma label para fechar, com o nome de lblTutoX

#3 - Codes
Adicione isso nos códigos da form frmMirage:

Código:: Private Sub flsTutos_DblClick() Dim iFile As Long Dim lLinha As Long Dim sLinha As String Dim sArquivo As String Dim sNumerado As String iFile = FreeFile Open flsTutos.Path & "\" & flsTutos.FileName For Input As #iFile lLinha = 0 sArquivo = "" sNumerado = "" Do While Not EOF(iFile) Line Input #iFile, sLinha lLinha = lLinha + 1 'Pega a informação da linha If sArquivo <> "" Then sArquivo = sArquivo & vbCrLf sArquivo = sArquivo & sLinha 'Pega a informação da linha para numerar cada linha If sNumerado <> "" Then sNumerado = sNumerado & vbCrLf sNumerado = sNumerado & Format(lLinha, "00000") & sLinha Loop txtTuto.Text = Empty txtTuto.Text = sArquivo picTuto.Visible = True 'Fecha o arquivo Close #iFile End Sub Private Sub lblTutosX_Click() picTutoList.Visible = False End Sub Private Sub txtTuto_GotFocus() picScreen.SetFocus End Sub Private Sub TutoX_Click() picTuto.Visible = False End Sub