System.IO.File.Exists(FileToMove)Tu envoie à la classe Shared File un chemin de fichier pour savoir s'il existe ou pas, ce à quoi elle répond par vrai ou faux
For Each increm As String In samename Form3.ListBox1.Items.Add(increm) Next
Dim Fi As New System.IO.FileInfo(files)
''' <summary> ''' Classe exemple qui calcule la variation de pression d'une enceinte en fonction de la température ''' On utilise PV/T = constante ''' </summary> Public Class Thermondynamique 'Variables internes "indépendantes" sans propriétés Private pressionInitiale As Double Private temperatureInitiale As Double ''' <summary> ''' Constructeur qui initialise le calcul ''' </summary> ''' <param name="PressionInitiale">en Pascal</param> ''' <param name="TemperatureInitiale">en Kelvin</param> ''' <param name="Volume">en m3</param> Public Sub New(ByVal PressionInitiale As Double, ByVal TemperatureInitiale As Double, ByVal VolumeInitial As Double) Me.pressionInitiale = PressionInitiale Me.temperatureInitiale = TemperatureInitiale Volume = VolumeInitial temperature = TemperatureInitiale pression = PressionInitiale End Sub #Region "Propriétés" ''' <summary> ''' Le volume ne changera pas, mon enceinte n'est pas censée être un ballon, j'écris donc une propriété sans variable interne ''' Cela reste différent d'une variable publique dans le sens ou je peux, si je veux, ajouter un jour une variable privée. ''' </summary> Public Property Volume() As Double Private pression As Double ''' <summary> ''' Pression en Pascals ''' Proprité en lecture seule, c'est notre résulat ''' </summary> Public ReadOnly Property PressionPa() As Double Get Return pression End Get End Property ''' <summary> ''' Pression en Bars, et si tu la veux en PSI, ben tu ajoutes une propriété ''' Proprité en lecture seule, c'est notre résulat ''' </summary> Public ReadOnly Property PressionBar() As Double Get Return pression / 100000 End Get End Property Private temperature As Double ''' <summary> ''' Température en °Kelvin ''' </summary> Public Property TemperatureK() As Double Get Return temperature End Get Set(ByVal value As Double) temperature = value Calcul() End Set End Property ''' <summary> ''' Température en °Celcius ''' </summary> Public Property TemperatureC() As Double Get Return temperature - 273.5 End Get Set(ByVal value As Double) 'là j'affecte la propriété, comme ça elle déclenchera le nouveau calcul TemperatureK = value + 273.5 End Set End Property #End Region Private Sub Calcul() pression = pressionInitiale * temperature / temperatureInitiale GenerePressionChanged() End Sub #Region "Méthodes" ''' <summary> ''' Setter ''' </summary> ''' <param name="Value"></param> Public Sub SetCelcius(ByVal Value As Double) TemperatureC = Value 'là j'affecte la propriété, puisqu'elle fait déjà la conversion et qu'ensuite elle déclenche le calcul End Sub ''' <summary> ''' Getter ''' </summary> ''' <returns></returns> Public Function GetBar() As Double Return PressionBar End Function ''' <summary> ''' Methode qui demande un truc et en retroune un autre ''' </summary> ''' <param name="Celcius"></param> ''' <returns></returns> Public Function BarFromCelcius(ByVal Celcius As Double) As Double TemperatureC = Celcius Return PressionBar End Function #End Region #Region "Evénement" Public Delegate Sub PressionChangedEvent(ByVal PressionBar As Double) Public Event PressionChanged As PressionChangedEvent Private Sub GenerePressionChanged() 'on vérifie s'il y a un abonné à l'evenement RaiseEvent PressionChanged(PressionBar) 'si oui on génère End Sub #End Region
Dim maThermo As New Thermondynamique(100000, 300, 1) maThermo.TemperatureC = 25 Dim pression2 As Double = maThermo.PressionBar maThermo.SetCelcius(40) Dim pression3 As Double = maThermo.GetBar() Dim pression4 As Double = maThermo.BarFromCelcius(55)
Public Class NewDOE
Public Property namepath As String
Public Sub New()
namepath = "SANSNOM"
End Sub
Public Sub New(namepath As String)
Me.namepath = namepath
End Sub
End Class
Public Shared Sub deplacer(namepath As String)
Dim equipname As String = Form3.ComboBox1.SelectedItem
Dim FileToMove As String = Form3.ListBox1.SelectedItem
Dim MoveLocation As String = "C:\test\" + namepath
Dim samename As String = Directory.GetFiles(MoveLocation).ToString
For Each increm As String In samename
Form3.ListBox1.Items.Add(increm)
Next
If System.IO.File.Exists(FileToMove) = True Then
System.IO.File.Move(FileToMove, MoveLocation)
MessageBox.Show("fichier déplacer vers" + MoveLocation)
End If
End Sub
Private Sub OriginButton2_Click(sender As Object, e As EventArgs) Handles OriginButton2.Click
Dim val As String
val = "DOE_" + Form2.TextBox1.Text + "_" + Form2.TextBox2.Text
allfunction.deplacer(val)
End Sub
Public Shared Sub begindoe()
If (String.IsNullOrEmpty(Form2.TextBox1.Text) Or String.IsNullOrEmpty(Form2.TextBox2.Text) Or String.IsNullOrEmpty(Form2.TextBox3.Text)) Then
MsgBox("Remplisser toute les cases pour pouvoir poursuivre la création du DOE", vbCritical)
Else
Dim nomcodefolder As String = Form2.TextBox1.Text
Dim nomdoc As String = "DOE_" + Form2.TextBox1.Text + "_" + Form2.TextBox2.Text
Dim nomcodefile As String = Form2.TextBox3.Text
My.Computer.FileSystem.CreateDirectory("C:\test\" + nomdoc)
MsgBox("Vérification des données entrées :" & vbNewLine & vbNewLine & "Code du dossier : " + nomcodefolder & vbNewLine & "Code des fichiers : " + nomcodefile & vbNewLine & "Nom du DOE : " + nomdoc, vbInformation, "Récapitulatif")
Form3.Show()
Form2.Close()
End If
End Sub
Private Sub OriginButton1_Click(sender As Object, e As EventArgs) Handles OriginButton1.Click
allfunction.begindoe()
End Sub
Dim p As New Form3(nomcodefolder,nomcodefile,nomdoc)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Class Form2 Public Sub New() ' Cet appel est requis par le concepteur. InitializeComponent() ' Ajoutez une initialisation quelconque après l'appel InitializeComponent(). End Sub Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub End Class
Public Property p1 As String
Public Property p2 As String
Public Property p3 As String
Public Sub New(nomcodefolder As String, nomcodefile As String, nomdoc As String)
Me.p1 = namepath
Me.p2 = namepathsuite
Me.p3 = nomdoc
End Sub
Public Sub New()
InitializeComponent()
End Sub
Public Property p1 As String Public Property p2 As String Public Property p3 As String Public Sub New(nomcodefolder As String, nomcodefile As String, nomdoc As String) Me.p1 = namepath Me.p2 = namepathsuite Me.p3 = nomdoc InitializeComponent() End Sub
Dim p New Form3(nomdoc,nomcodefile,nomcodefolder)
Form3.Show()
Form2.Close()
Dim p New Form3(nomdoc,nomcodefile,nomcodefolder)
19 avril 2016 à 14:00
http://codes-sources.commentcamarche.net/faq/11107-interactions-entre-form-en-net-c-et-vb-net