Como criar um "Abrir arquivo" Com OpenFileDialog (Sem Filtro)

[WCNerdiiiX 0]

Iae pessoal , hoje vou ensinar a Criar um "Abrir Arquivo",

Não sabe oque é?

Exemplo: Voçê clica em um Botão, e um Diálogo aparece (Abrir Arquivo,Open File)

Não sabe como fazer? Bom eu devo avisar que sou muito Noob em Programação,

e só estou mostrando uma das coisas que sei.

Vamos LÁ!!

 

REQUISÍTOS

1 OpenFileDialog

1 Form

1 Botão ou um LinkLabel (Algo que abra o OpenFile quando vc clicar)

 

TUTORIAL

1 - Clique encima do Botão / LinkLabel, Aceda aos Códigos. e Digite o Seguinte:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Obs: Quando voçê abrir um Arquivo, vai acontecer nada, porque? Porque o Arquivo não tem aonde ir depois de selecionado.

 

Adcione uma PictureBox (Qualquer Tamanho)

Vá no seu Botão / LinkLabel, e embaixo do Primeiro código digite esse Código:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

VERSÕES FUNCIONAIS - Visual Basic 2010

VERSÕES FUNCIONAIS - Visual Basic 2008

(A linguagem C# ou Delphi, não será possível, pelo tipo de Linguagem Diferenciada do VB )

Pronto, voçê criou um Abridor de Arquivos (Sem Filtro)

Simplesmente fácil de Usar

 

[AnonymousKesha 11]

Complementar para quem precisar!

 

Movimentar PictureBox mesmo depois que a aplicação está rodando :

Private Const WM_NCLBUTTONDOWN = &HA1

Private Const HTCAPTION = 2

 

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _

(ByVal hwnd As Integer, ByVal wMsg As Integer, _

ByVal wParam As Integer, ByVal lParam As String) As Integer

Private Declare Sub ReleaseCapture Lib "user32" ()

 

'Deslocamento da PictureBox

Private Sub PictureBox2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove

Dim lHwnd As Int32

lHwnd = PictureBox2.Handle

If lHwnd = 0 Then Exit Sub

ReleaseCapture()

SendMessage(lHwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)

End Sub

 

'Deslocamento da forma

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

Dim lHwnd As Int32

lHwnd = Me.Handle

If lHwnd = 0 Then Exit Sub

ReleaseCapture()

SendMessage(lHwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)