(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).