estará sin modo estricto, supongo, pero habría que usar csng() o ctype( , single)
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarIncluida.atributoC21=value
CitarForm1.Incluida.atributoC21=value
Citar
public x as new form2
public y as new form3
Citarform1.x.title="funcionó"
Public Class testclass1
Private my_number As Integer = 0
End Class
Public Class testclass1
Private my_number As Integer = 0
Public Property number As Integer
Get
'// aquí va el código que se ejecutará al leer,
'// es como una función, necesita return
End Get
Set(ByVal value As Integer)
'// aquí va el código que se ejecutará al escribir
'// es donde quieres ejecutar el código adicional
End Set
End Property
End Class
Public Class testclass1
Private my_number As Integer = 0
' Defino el evento de testclass1, recuerda que al crear la instancia debes hacerlo usando "withevents"
Public Event need_update(ByVal valor_actualizado As Integer)
Public Property number As Integer
Get
Return Me.my_number
End Get
Set(ByVal value As Integer)
Me.my_number = value
RaiseEvent need_update(my_number)
End Set
End Property
End Class
Citarpublic withevents nuevotest as new testclass1
Public Class testclass1
Private my_number As Integer = 0
Public Property number As Integer
Get
Return Me.my_number
End Get
Set(ByVal value As Integer)
Me.my_number = value
form1.Incluida.atributoC21=value
End Set
End Property
End Class
Citarset archivotexto = objfso.createtextfile("C:\Users\****\desktop\"&var&".txt",true)