pone que valores le estas poniendo y que valor te da la suma, asi vemos que esta mal...
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úCita de: Skeletron en 19 Septiembre 2009, 01:01 AM
Pauperrimo??
Es como decir que estas ASOMBRADO..
Aunque, entiendo lo que dices.. Simbargo, para una persona racional comun, mi pregunta no tiene defecto
Cita de: Danfelbm en 18 Septiembre 2009, 23:12 PM
Cielos, trato y trato de olvidar algo tremendo... pero no puedo, alguno tiene al menos una idea de qué podría hacer para olvidarlo?
Option Explicit
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Private vBloqueado As Boolean
Private Sub Form_Load()
With MSHFlexGrid1
.FixedCols = 0
.FormatString = "Nombre"
.AddItem "Sebastian"
.AddItem "Leandro"
.AddItem "Cobein"
.AddItem "Ivo"
.AddItem "Karcrack"
.ColWidth(0) = 1500
.ColWidth(1) = 0
.RowHeight(1) = 0
End With
End Sub
Private Sub MSHFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
MSHFlexGrid1.SelectionMode = flexSelectionFree
MSHFlexGrid1.RowSel = MSHFlexGrid1.Row
If Not vBloqueado Then LockWindowUpdate (MSHFlexGrid1.hWnd)
vBloqueado = True
End If
End Sub
Private Sub MSHFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
MSHFlexGrid1.SelectionMode = flexSelectionByRow
MSHFlexGrid1.RowSel = MSHFlexGrid1.Row
LockWindowUpdate (0&)
vBloqueado = False
End Sub