Mensajes

yo lo haría así

Código [Seleccionar] Expandir

    Public imagestr As String() = {"imgs/img01.jpg", "imgs/img02.png", "imgs/img03.jpg", "c:/undir/imgs/img04.png"}
    Private imgs As New List(Of Bitmap)
    Private priv_index As Integer = 0

'utilizo una propiedad, de esta manera cuando cambie "index" la imágen
'se sitúa automáticamente en el picturebox

    Public Property index As Integer
        Get
            Return Me.priv_index
        End Get
        Set(value As Integer)
            If value < 0 Then
                If imgs.Count > 0 Then
                    value = imgs.Count - 1
                End If
            ElseIf value >= imgs.Count Then
                value = 0
            End If
            Me.priv_index = value

            try
              Me.picturebox1.image = imgs(Me.priv_index)
            catch ex as exception
              ' no hay imágen !
            end
        End Set
    End Property

' load imagelist lee un bitmap por cada texto en imagestr
' y lo memoriza en imgs

    Public Sub load_imagelist()
        imgs.Clear()
        Dim tmp As Bitmap
        For Each s As String In Me.imagestr
            Try
                tmp = Bitmap.FromFile(s)
                Me.imgs.Add(tmp)
            Catch ex As Exception
                ' no se encuentra el archivo
                ' ¿notificar al usuario?
            End Try
        Next
        Me.index = 0
    End Sub

bueno, eso es, aunque te has vuelto algo loco por el imagelist, realmente me parece mas sencillo con list of bitmap y bitmap.fromfile().

lo que me parece a mi es que para jugar a la xbox o ps3 antes me compro un buen pc... la wii es diferente, no se puede sustituir... le doy la vuelta a lo anterior: ps y xbox no pueden seguir el ritmo de desarrollo tecnico de nintendo y por eso su estrategia es añadir mas potencia...

Me voy a sentir viejo e inútil, de momento soy el más mayor que ha comentado aquí xDDD:

Edad: 22

22 viejo???

dada una lista de imágenes, un tamaño por imágen y un número de imágenes por línea devuelve un bitmap con todas las imágenes dibujadas sobre una cuadricula del tamaño indicado. Muy útil para el manejo de gráficos 2D.

Código (vbnet) [Seleccionar] Expandir

Public Function get_Image_matrix(ByRef imagelist As Bitmap(), sze As Size, imgs_per_line As Integer)
       Dim imagesize As New Size(1, 1)
       imagesize.Width = sze.Width * imgs_per_line
       imagesize.Height = Math.Ceiling((imagelist.Length / imgs_per_line) * sze.Height)

       If (imagesize.Height = 0) Then
           imagesize.Height = 1 * sze.Height
       End If
       If (imagesize.Width = 0) Then
           imagesize.Width = 1 * sze.Width
       End If

       Dim rtn As New Bitmap(imagesize.Width, imagesize.Height)
       Dim gr As Graphics = Graphics.FromImage(rtn)

       Dim xc As Integer = 0
       Dim yc As Integer = 0
       Dim index As Integer = 0

       Dim needlines As Integer = Math.Ceiling(imagelist.Length / imgs_per_line)

       Do While yc < imagesize.Height
           Do While xc < imgs_per_line * sze.Width
               Try
                   gr.DrawImage(imagelist(index), New Rectangle(xc, yc, sze.Width, sze.Height))
               
               Catch ex As Exception

               End Try
               index += 1
               xc += 1 * sze.Width
           Loop
           xc = 0
           yc += 1 * sze.Height
       Loop

       Return rtn
   End Function

los robots también los programan humanos ¬¬

corea del norte, que es una dictadura opresora que se hace denominar comunista siente su sistema amenazado por las grandes potencias capitalistas, y corea del sur se ha transformado en una de estas. eeuu es una de estas potencias, además del principal fabricante de armas a nivel mundial y ha apoyado desde hace años a corea del sur. pero como los capitalistas no hacen nada gratis han conseguido terrenos a nombre de su ejército en corea del sur.

para la dictadura norcoreana esta amenaza ha sido amplificada y manipulada cara al pùblico interno para conseguir más apoyo a la hora de adoptar actitudes bélicas. dudo que corea del norte comenzáse una ofensiva, puesto que tiene pocas posibilidades de éxito y el sur no creo que lo necesite con bases estadounidenses en su territorio (el otro día decian que deplegarían un escudo antimisiles y la pesca)... y sobre estados unidos, a parte del sector tecnológico no se qué intereses tiene allá, sólo espero que no les interese liarla, porque si quieren quieren la lian parda.

esque antes no has bloqueado el programa en un loop como ahora entonces sigue y termina. la forma correcta es la segunda, con un bucle while "running" y doevents.

sobre la pregunta de do-while, no se, se me calienta la cabeza solo tratando de entenderla en su totalidad... y más aun con la empanada que me ha venido a la cabeza:

hecho: existe un número infinito de números pares positivos.

entonces: existe el doble de números positivos en general.

y y cuatro veces más si cuentas los negativos...
quiero decir... ¿cuanto es infinito...? ¿y el doble de eso? ... no se, el primer impulso fue pensar: bah, infinito + 1 = infinito... pero ¿cómo es esto posible? si lo analizamos detenidamente

podemos tomar del 1 al 10, que es una parte infinitesimal del infinito, 5 números pares y 10 positivos, me sale que hay el doble, ¿cómo es posible que uniendo infinitas partes de dos unidades no tengamos el doble de infinito? ¿o esque si que lo tenemos? quizas haya diferentes niveles dentro de lo que llamamos infinito... 

lo usaba para jugar al counter.