Boas.

Tenho um botao que chama a funcao Select_All.. para seleccionar todos os oradores.


Sub Select_All(sender As Object, e As System.EventArgs)
Dim i As Integer
For i = 0 To oradores.Items.Count - 1
If not oradores.Items(i).Selected Then
oradores.Items(i).Selected = true
End If
Next
End sub


Aconteceu que é feito o reload da página.. e eu não queria. andei a ver javascript para isto, mas nada funciona..
alguem pode ajudar?

Cumprimentos.

Ja tentaste em javascript por assim:

<script>
function select_all()
{
document.formulario.campo1.selected = true;
document.formulario.campo2.selected = true;
document.formulario.campo3.selected = true;
}
</script>


<input type="button" onClick="select_all()">


Foi escrito de cor, pode haver algo que nao esteja correcto, mas penso que a logica sera mais ou menos essa...

Boas.

Tenho um botao que chama a funcao Select_All.. para seleccionar todos os oradores.


Sub Select_All(sender As Object, e As System.EventArgs)
Dim i As Integer
For i = 0 To oradores.Items.Count - 1
If not oradores.Items(i).Selected Then
oradores.Items(i).Selected = true
End If
Next
End sub
Aconteceu que é feito o reload da página.. e eu não queria. andei a ver javascript para isto, mas nada funciona..
alguem pode ajudar?

Cumprimentos.

nesse codigo n serA:

For i = 0 To oradores.Items.Count - 1
If not oradores.Items(i).Selected = true Then
oradores.Items(i).Selected = true
End If


Em vb 6 eu fiz assim:


Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 3
If Not Check1(i).Value = 1 Then
Check1(i).Value = 1
End If
Next
End Sub