Tibia [gui] modo facil.

[Sleepy 5]

Galera achei uma solução

Não é a mais aconselhavel , mais porém chega proximo ao resultado final.

bom primeiro de tudo , voces teram que particionar todo o arquivo "003" do tibia.pic ( JA EXTRAIDO)

Retire os fundos , Botoes ,Imagens tudo que posivel. Salve tudo em uma pasta.

depois disso voce abre um novo arquivo no fireworks ou qualquer outro editor de imagem.

e começa a montar seu FORMULARIO com as imagens recortadas do tibia.pic

Exemplo:

Então Feito a imagem , salve.

abra o vb.net

no seu form1.vb . click em propriedades > border > none

Depois adicione um Imagem Box e selecione A imagem do Formulario

Depois com os botões feitos voce só coloca eles no visual basic.

(:

isso que aprendi

malz galera por ter explicadoo assim rapido

eu não tenho dom de ensinar.

[EdsonJunior 966]

Qual a fonte do tibia?

Só sei que é size 8

WQHEUIHQWUI'

Eu sabia o nome, mais esqueci, é uma font que já tem no PC!

;x

[Private Sub Teste 353]

Fonte é Tahoma.

Belo tutorial para iniciantes, é gambiarrésimo asuhdaushd

[Sleepy 5]

kkkkkkkkkkkkkkkkkkkkkkk'

Brasileiro é assim , cheigo de gambiarra

valeuuu cara.

eee se puder postar seus programas . mostrei aê pra mim!

[Private Sub Teste 353]

Método um pouco mais simples que o seu e um resultado surpreendente

Depois te ensino como faz ele

[EdsonJunior 966]

Método um pouco mais simples que o seu e um resultado surpreendente

Depois te ensino como faz ele

Então, ensina aê logo, epolgay novamente em terminar meu tool!

[Sleepy 5]

._.'

meu até que funfa , unico problema

que o form não move.

tenho que obter um codigo para isso.

[JulinhoPiuPiu 100]

Ae, fonte: http://www.dreaminco...post__p__394871

Class Form1     Private IsFormBeingDragged As Boolean = False     Private MouseDownX As Integer     Private MouseDownY As Integer     Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown         If e.Button = MouseButtons.Left Then             IsFormBeingDragged = True             MouseDownX = e.X             MouseDownY = e.Y         End If     End Sub     Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseUp         If e.Button = MouseButtons.Left Then             IsFormBeingDragged = False         End If     End Sub     Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseMove         If IsFormBeingDragged Then             Dim temp As Point = New Point()             temp.X = Me.Location.X + (e.X - MouseDownX)             temp.Y = Me.Location.Y + (e.Y - MouseDownY)             Me.Location = temp             temp = Nothing         End If     End Sub End Class 

[Private Sub Teste 353]

    Private WM_NCHITTEST As Integer = &H84

    Private HTCLIENT As Integer = &H1

    Private HTCAPTION As Integer = &H2


    Protected Overrides Sub WndProc(ByRef m As Message)

        MyBase.WndProc(m)


        Select Case m.Msg

            Case WM_NCHITTEST

                If m.Result = New IntPtr(HTCLIENT) Then

                    m.Result = New IntPtr(HTCAPTION)

                End If

        End Select

    End Sub

Este é o code que eu uso para fazer o form se mover

[CapsLock 0]

Vlw Ajudou Mto! XD

Editado Março 30, 2011 por CapsLock (veja o histórico de edições)

[Sleepy 5]

ae galera , então voces ja sabem como usar o GUI gambiation!