Discussion :

[MrChocolat]

Bonjour,

Je suis entrain de créer un logiciel pour tablette Windows avec Windows form en vb.net (oui il existe xamarin mais je préfère garder le vb.net).

J'aimerai pouvoir prendre une photo directement depuis mon logiciel afin de pouvoir l'utiliser instantanément sans avoir à passer via le logiciel "Caméra" de Windows. Pour ce faire j'aimerai suivre ce tutoriel :

. A un moment (1min44), il faut ajouter 2 jeux de composants personnalisés. J'arrive à en ajouter un mais pas l'autre.
Je pense avoir trouvé le problème (le fichier Touchless a le type ".NET" mais pas le fichier "WebCamlib") et c'est justement le fichier "Webcamlib qui ne passe pas. Auriez vous une solution à ce problème que je n'arrive pas à résoudre malgré mes longues recherches ?

Merci!

Lien de téléchargement des fichiers : https://we.tl/t-wHe023hvJE

[clementmarcotte]

Bonjour,

Regarde là. Il y en a plusieurs qui sont des composants .net

Pour peu que je me souvienne, celui de Fabrika LAB (le 11e lien, vite compté ) est en VB et fonctionne bien.

Mais honnêtement, je n'ai pas regardé les 554 pages.

[MrChocolat]

Bon, vu que je n'ai pas réussi a résoudre le problème de base, je l'ai contourné.

Pour ceux qui cherche également à prendre une photo directement depuis votre application voici la video:

Et voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Imports AForge.Video.DirectShow
Imports AForge
Imports AForge.Video
 
Public Class FM_Nils_Photo
 
    Dim Bmp As Bitmap
    Dim Camera As VideoCaptureDevice
 
'Choix du périphérique
    Private Sub FM_Nils_Photo_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim cameras As VideoCaptureDeviceForm = New VideoCaptureDeviceForm
        If cameras.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Camera = cameras.VideoDevice
            AddHandler Camera.NewFrame, New NewFrameEventHandler(AddressOf Captured)
'Lancement de la video
            Camera.Start()
        End If
    End Sub
 
'Copie la photo
    Private Sub Captured(sender As Object, eventArgs As NewFrameEventArgs)
        Bmp = DirectCast(eventArgs.Frame.Clone(), Bitmap)
        PHOTO_PB_Video.Image = DirectCast(eventArgs.Frame.Clone(), Bitmap)
    End Sub
 
    Private Sub PHOTO_BT_Prendre_Click(sender As Object, e As EventArgs) Handles PHOTO_BT_Prendre.Click
        PHOTO_PB_Capture.Image = PHOTO_PB_Video.Image
    End Sub
 
'Quitte le formulaire
    Private Sub PHOTO_BT_Quitter_Click(sender As Object, e As EventArgs) Handles PHOTO_BT_Quitter.Click
        Me.Close()
    End Sub
 
'Arrête la camera
    Private Sub FM_Nils_Photo_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        Camera.Stop()
    End Sub
 
'Valide et ferme
    Private Sub PHOTO_BT_Valider_Click(sender As Object, e As EventArgs) Handles PHOTO_BT_Valider.Click
        If Not PHOTO_PB_Capture.Image Is Nothing Then
            FM_Nils.NL_Repas.REPAS_PB_Photo.Image = PHOTO_PB_Capture.Image
            Me.Close()
        End If
    End Sub
End Class