Mensajes

Muy bueno... 

[1]

Bien, una dudita a ver si alguien tendría idea de como solucionar esto de una manera optima.

Yo voy agregando cierta cantidad de items en un listview. Sin embargo, enumero cada item.
Ejemplo

Item - Codigo - Producto - Costo
1          001       Cloro        150
2          002       Jabón        250
3          005       Lavaplatos 200
4          003       Enjuague   180

Ahora bien, si de esa lista elimino el segundo registro me quedaria así...

Item - Codigo - Producto - Costo
1          001       Cloro        150
3          005       Lavaplatos 200
4          003       Enjuague   180

Y la idea es que al eliminar un registro se refresque y permita seguir la secuencia de los item, quedando así...

Item - Codigo - Producto - Costo
1          001       Cloro        150
2          005       Lavaplatos 200
3          003       Enjuague   180

Dejo un listview para descargar, donde elimino el item pero no lo refresco. Por si alguien desea usarlo como ejemplo. Saludos y gracias.

SkinListviewa.rar - Descargar

:descarga:

Enviar correo a cualquier direccion

Fuente : http://blacklaptop.blogspot.com/

Pass : bl

No funka el link

basta de publicar downloaders que ya me aburrieron...

No sos el unico!-
saludos

Arriba está mi opinión...

Buena infono tenia idea de esto... Che saven algo de la programacion para pen drives con tecnologias U3 por que se que se pueden programar apricaciones para ello pero no estoy al tanto si es que hay una plataforma espesifica para ello...

SAludos

Qué querés hacer?

mmm este codigo se me hace familiar ja es parecido al que use en una de mis bromas ya hace tiempo tiene la misma idea es decir la raiz "-1,0,1" pero con otras virtudes ja. aca dejo mi chusco codigo de hace tiempo; solo que se enfoca a destr5ozar5 la pantalla actualmente activa y destrosandola jejeje.

<--Descargar Destroza Ventanas-->

respeten, XAO.

P.D.: Pon los creditos dequi8en a realizado este codigo ya quer recuerdo haberlo visto en otra pagina ya hace tiempo. por cierto ponlo full ya que se supone que se compi8laba como ".scr" o algo asi y es un salvapantallas a como lo recuerdo.

Por cierto se parece este efecto al mio pero el mio trabaja para que el usuario no trabaje jaja. si8 no saben como salirte denle un clic a la vetana animada y opriman la tecla "X".

░▒▓BlackZeroҖ▓▒░

No tengo el autor del codigo. Ese codigo esta dentro de mis recopilaciones y tienen años conmigo, la verdad no recuerdo el autor ni donde lo baje. Por otro lado el link tuyo no funka. Saludos

Si, gracias a que podía conectar por los puertos COM 3 y 4 al móvil con el software de gestión Bluetooth.

Podrías postear algún ejemplo??? Quizás muchos se interesen en saber en como lo hiciste...

eso alguien tiene el VB.Net q me pueda facilitar x favor y el
pass generator por q me dijeron q tiene clave esto


salu2!

Esto es Visual Basic 6.0

mmm esta bueno... es un poco raro, fuera de lo normal xD jaja

taria bueno q se vaya "arruinando" a medida q uno mueve el mouse... o algo asi...
con el evento mousemove creo q se podria hacer facilmente

Pues si... Pero bueno es solo un aporte...

Hola, pues quisiera compartir un codigo con ustedes. Es un efecto destroza pantalla.

Agreguen un form y coloquenle el nombre de: FrmMain
La propiedad BorderStyle = 0-None

y peguen este code...

Código (vb) [Seleccionar] Expandir


Option Explicit
Private Declare Function GetDC Lib "USER32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "USER32" (ByVal hwnd As Long, ByVal hDC As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private lngDC As Long
Private blnLoop As Boolean
Dim m1 As Integer, m2 As Integer

Private Sub Form_Click()
blnLoop = vbFalse
Unload Me
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
blnLoop = vbFalse
End Sub
Sub ElEfecto()
Dim intX As Integer, intY As Integer
Dim intI As Integer, intJ As Integer
Dim intWidth As Integer, intHeight As Integer
intWidth = Screen.Width / Screen.TwipsPerPixelX
intHeight = Screen.Height / Screen.TwipsPerPixelY
frmMain.Width = Screen.Width
frmMain.Height = Screen.Height
lngDC = GetDC(0)
Call BitBlt(hDC, 0, 0, intWidth, intHeight, lngDC, 0, 0, vbSrcCopy)
frmMain.Visible = vbTrue
frmMain.AutoRedraw = vbFalse
Randomize
blnLoop = vbTrue
Do While blnLoop = vbTrue
intX = (intWidth - 128) * Rnd
intY = (intHeight - 128) * Rnd
intI = m1 * Rnd - 1
intJ = m2 * Rnd - 1
Call BitBlt(frmMain.hDC, intX + intI, intY + intJ, 128, 128, frmMain.hDC, intX, intY, vbSrcCopy)
DoEvents
Loop
Set frmMain = Nothing
Call ReleaseDC(0, lngDC)
End
End Sub

Private Sub Form_Load()
On Error GoTo er1
frmMain.AutoRedraw = True
Dim ef As Integer
ef = GetSetting("MeltSCR", "Effect", "Effect")

Select Case ef
Case 0
m1 = 2: m2 = 2

Case 1
m1 = 20: m2 = 20

Case 2
m1 = 9: m2 = 9

Case 3
m1 = 0: m2 = 0

Case 4
m1 = 3: m2 = 3

Case 5
m1 = 5: m2 = 5

Case 6
m1 = 10000: m2 = 10000

Case 7
m1 = 1000: m2 = 1000

Case 8
m1 = 10: m2 = 2

Case 9
m1 = 2: m2 = 10

End Select
ElEfecto
Exit Sub
er1:
m1 = 2: m2 = 2
ElEfecto
End Sub