(04-08-2020, 19:12)calcena escribió: Bien dicho esto, pensaba que con un ListBox1.Index = -1 podía realizar esta acción, cual es mi sorpresa cuando al ejecutar el programa me dice 'Fuera de los limites'
(04-08-2020, 20:47)calcena escribió: Por otra parte en .net el index -1 si que hace deseleccionar un control de este tipo...
ListBox1 As ListBox
HBox1 As HBox
Label1 As Label
ButtonClean As Button
ButtonRestore As Button
Public Sub Form_Open()
With Me
.H = 448
.W = 448
.Arrangement = Arrange.Vertical
.Padding = 5
End With
With ListBox1 = New ListBox(Me) As "ListBox1"
.Expand = True
.List = Dir(User.Home, "[^.]*", gb.Directory)
End With
HBox1 = New HBox(Me)
HBox1.H = 28
With ButtonRestore = New Button(HBox1) As "ButtonRestore"
.W = 98
.Text = "&Restore"
.Picture = Picture["icon:/22/redo"]
End With
With Label1 = New Label(HBox1)
.Alignment = Align.Center
.Alignment = Align.Bottom
.Expand = True
.Font.Size = 7
.Text = "Charlie Ogier Software 2020"
End With
With ButtonClean = New Button(HBox1) As "ButtonClean"
.W = 98
.Text = "&Clean"
.Picture = Picture["icon:/22/clear"]
End With
End
Public Sub ButtonClean_Click()
Dim sArray As String[] = ListBox1.List
If ListBox1.Index = -1 Then Return
sArray.Extract(ListBox1.Index, 1)
ListBox1.List = sArray
End
Public Sub ButtonRestore_Click()
ListBox1.List = Dir(User.Home, "[^.]*", gb.Directory)
End
(05-08-2020, 00:15)vuott escribió:(04-08-2020, 20:47)calcena escribió: Por otra parte en .net el index -1 si que hace deseleccionar un control de este tipo...
uhmmm... no conozco .net, ...pero aquel -1 a mi parece, se muestra como si fuera no un real numero de indice, sino un particular valor, para que el recurso - al que está asignado - sepa que debe realizar una acción (...deseleccionar un control).