Crear PictureBox a través de una config .ini?

Iniciado por z3nth10n, 3 Junio 2013, 19:49 PM

0 Miembros y 1 Visitante están viendo este tema.

Eleкtro

Cita de: Ikillnukes en  7 Junio 2013, 07:44 AM
Tengo otra duda, he puesto Panel1.Controls.Add(Panel1)

Dentro del For, ahora los pics tienen las propiedades del Panel1 xD

Claro, las propiedades del container las heredan los controles que añades dentro del container... pasa lo mismo si los creas/añades desde el designer.

Modifica las propiedades que consideres "conflictivas" del panel

un saludo








z3nth10n

Cita de: EleKtro H@cker en  7 Junio 2013, 09:58 AM
Claro, las propiedades del container las heredan los controles que añades dentro del container... pasa lo mismo si los creas/añades desde el designer.

Modifica las propiedades que consideres "conflictivas" del panel

un saludo

Pero si le pongo un color de argb va a tomar ese color también el pic, teniendo ya puesto el pic la propiedad del argb?

Interesados hablad por Discord.

z3nth10n

#22
Gracias por este snippet tan bueno... Ahora ya podré seguir...

Ahora tengo una duda... Tengo que contar el numero de pcbs que ya hay para saber a cual pcb se le va a asignar ese value...

Tendria que contar una frase o una palabra que fuese comun para todo el ini... Ahora la cosa es como cuento la veces que sale dicha palabra, estuve buscando en google pero na... :silbar:

Interesados hablad por Discord.

Eleкtro

#23
IkillNukes,
me caes bien pero al menos yo desde luego no me voy a molestar en ayudar a alguien si priméramente esa persona no se digna a formular corréctamente una pregunta, mostrando código, mostrando el ini, siendo especifico y dando detalles, mostrando los put*s errores/excepciones, en fin mostrando los datos necesarios y que se vea que lo estás intentando, la verdad es que ya cansa mucho ver este tipo de preguntas tuyas, no porque seas pesado ni nada parecido, sino porque son preguntas sin ningún tipo de información por tu parte, sin sentido, solo pides las cosas ya hechas y ni siquiera se entiende lo que pides en la mayoría de los casos.

Si no dispones del tiempo suficiente para escribir todo lo necesario para poder formular una pregunta DECENTE para que en general los demás usuarios te podamos ENTENDER y de alguna manera te podamos RESPONDER y ayudar en lo que podamos, pues comprende que los demás usuarios tenemos aún menos tiempo para leer tonterías y contestarlas.

Espero que no te haya molestado, mi pequeña crítica constructiva.

Saludos!








z3nth10n

#24
Por eso digo siempre que te conectes a Skype, por ahí podemos hablar clara y lentamente Y pa colmo ni leo, ni explico bien...

La duda que he formulado arriba si se como resolverla.... Lo único que necesito saber es como contar cuantas veces se repite una palabra en un ini, asi de fácil... Yo mismo me lié formulando la pregunta (la de arriba) así que... XD

Interesados hablad por Discord.

Eleкtro

#25
Cita de: Ikillnukes en 12 Junio 2013, 16:55 PMo único que necesito saber es como contar cuantas veces se repite una palabra en un ini

Hace tiempo posteé un snippet para eso:

Código (vbnet) [Seleccionar]
#Region " Find String Ocurrences Function "

    ' [ Find String Ocurrences Function ]
    '
    ' Examples :
    '
    ' MsgBox(Find_String_Occurrences("Hello World", "o"))            ' Result: 2
    ' MsgBox(Find_String_Occurrences("Hello me Hello you", "Hello")) ' Result: 2

    Private Function Find_String_Occurrences(ByVal Input_String As String, ByVal Search_String As String) As Integer

        Dim Input_String_Pos As Int32
        Dim Input_String_Count As Int32

        Do
            Input_String_Pos = Input_String.IndexOf(Search_String, Input_String_Pos)
            If Input_String_Pos <> -1 Then
                Input_String_Count += 1
                Input_String_Pos += Search_String.Length
            End If
        Loop Until Input_String_Pos = -1

        Return Input_String_Count

    End Function

#End Region








z3nth10n

Bueno, pues estoy intentado algo tal que así:

Código (vbnet) [Seleccionar]
           Dim Array_Size As Integer = cuenta 'change this for the number of controls that will appear
           ReDim pcb_(Array_Size)

           For pcb_num = 0 To Array_Size
               Application.DoEvents()
               pcb_(pcb_num) = New PictureBox
               pcb_(pcb_num).BackColor = Color.FromArgb(255, pcb_num * 3, pcb_num * 2, pcb_num)
               pcb_(pcb_num).Height = 77
               pcb_(pcb_num).Width = widaco
               pcb_(pcb_num).Left = 36
               pcb_(pcb_num).Top = 85 * pcb_num + 15
               pcb_(pcb_num).BackgroundImage = Image.FromFile(".\Art\im\" & pcb_num + 1 & ".png")
               pcb_(pcb_num).Image = Image.FromFile(INI_Manager.Load_Value(".\Test.ini", "FuncImg-" & pcb_num))
               pcb_(pcb_num).Tag = pcb_num
               Dim deel As Integer = Math.Abs(Int(Panel1.AutoScrollPosition.Y.ToString)) / altur
               pcb_(deel + 2).Width = 200 'Aquí es donde tengo el conflicto, las pics no se cargan
               Me.Controls.Add(pcb_(pcb_num))
               pcb_(pcb_num).Parent = Panel1
               AddHandler pcb_(pcb_num).Click, AddressOf pcb_Click
           Next


Como observarás he vuelto  a tu antiguo code....

Un saludo.

Interesados hablad por Discord.

Eleкtro









z3nth10n

#28
Básicamente lo digo aquí:

Citarpcb_(deel + 2).Width = 200 'Aquí es donde tengo el conflicto, las pics no se cargan

Un saludo. :P

Interesados hablad por Discord.

Eleкtro

Eso ya lo leí, te pregunto si salta alguna excepción, ya que en esa línea no "cargas" los controles, solo modificas su tamaño, por eos me parece extraño que afirmes que el error está en esa linea.

saludos!