elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  descontar valor en list1 de la columna 3
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: descontar valor en list1 de la columna 3  (Leído 337 veces)
corlo

Desconectado Desconectado

Mensajes: 53


Ver Perfil
descontar valor en list1 de la columna 3
« en: 24 Febrero 2021, 00:42 am »

Hola soy  corlo


estoy haciendo un pequeño programa necesito descontar el valor que le pongo en el  text3.text
y lo cambie en el valor seleccionado del list1 de la columna 3


en el programa hay los siguientes objetos:

1 list1
1 list2

text1.text
text2.text
text3.text

1 command1 salida
1 command4 ok

la cuestion es que cuando aprieto el command1 la operacion de resta lo hace bien, cuando voy a el command4 no consigo poner el resultado del text3.text  en el list1 del valor seleccionado de la columna 3

aqui esta el codigo que tengo hasta ahora:

Código:


Option Explicit






Private Sub Command1_Click()
'salida ok


 Dim i As Long
Dim arrString() As String
For i = 0 To UBound(arrString)
    List1.AddItem arrString(i)
Next

End Sub

Private Sub Command3_Click()
Unload Me
Form1.Show
End Sub

Private Sub Command4_Click()
'Salida
Dim cantidad As Integer
cantidad = Text1.Text

If Text3.Text > cantidad Then
   MsgBox "No hay suficiente existencia", vbCritical
   Exit Sub
End If

Command1.Visible = True
Text3.Text = Text3.Text - Text1.Text
End Sub

Private Sub Form_Load()
List1.AddItem "p001" & "                     " & "descripciom p001" & "                           " & "42"
List1.AddItem "p002" & "                     " & "descripciom p002" & "                           " & "53"
List1.AddItem "p003" & "                     " & "descripciom p003" & "                           " & "244"
List1.AddItem "p004" & "                     " & "descripciom p004" & "                           " & "75"
Text2.Text = List1.ListCount
Command1.Visible = False
End Sub

Private Sub List1_Click()

    Dim x As Integer
  List2.Clear
   
  List2.AddItem List1.Text

    For x = 0 To List2.ListCount - 1
   
   Text1.Text = Mid(List2.List(x), Len(List2.List(x)) - 2, 3)

   
   Next x
   
   
End Sub






he probado varias formas pero no consigo cambiar el valor del text3 al list1

gracias


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[DUDA] en List1.AddItem « 1 2 »
Programación Visual Basic
NsTeam 14 3,652 Último mensaje 26 Agosto 2009, 02:02 am
por h0oke
Como Obtener valor de un textbox, desde un valor, hasta otro valor [VB6]
Programación Visual Basic
revenge1252 4 4,643 Último mensaje 17 Julio 2012, 09:38 am
por BlackZeroX
vb modificar datos list1 a archivo random txt
Programación Visual Basic
corlo 2 1,291 Último mensaje 8 Septiembre 2015, 21:04 pm
por corlo
Descontar Cantidad en Utilidad
PHP
Antoniio 6 2,887 Último mensaje 15 Junio 2017, 16:28 pm
por 3n31ch
Proponen descontar 16,53 euros de la factura telefónica también a los parados...
Noticias
wolfbcn 0 917 Último mensaje 1 Agosto 2017, 15:35 pm
por wolfbcn
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines