Geekoo89

Bien, la policía es un poco… en fin… Hace tiempo, me robaron la matrícula del coche. Lo denuncié en comisaria y me aseguraron que buscarían a quien usase la matricula, ya que si es el mismo modelo y color de coche, pueden hacer lo que les venga en gana y que otro se coma el marron, ademas de las molestias que le causan al que le roben la matricula… en fin, es otro tema. La cosa es que mas de una vez me he puesto delante de un coche de policía y conducir delante suya durante bastante tiempo, y nunca me han parado a comprobar que sea el mangantedemierda o no. A eso se le llama trabajar… encima que llevan un ordenador en el coche el cual analiza matriculas e informa de irregularidades. Chapeaou… Luego me ven en el parque liandome un cigarrillo, un grupo de colegas con pintas raras solos a las tantas de la madrugada en el parque. Lo maximo que hacen es sacar la cabeza del coche y preguntarte con actitud chulesca “eso sera solo tabaco, no??”. Ole. Luego, ven mi coche aparcado encima de la acera, donede todos los coches aparcan, en un recinto cerrado y te encaloman 50 leurs de multa. Hell yeah! Todo esto para que luego se salten los semaforos, y si pasa algo gordo, llaman a la nacional. Y encima cobran mas que los nacionales! Yeah, pinta bien hacerse policia, eh? =)

Putamierda de programa ya está hecho, es lo del pulpo paul este de los huevos que todo el mundo está dando la tabarra ultimamente. Aquí teneis el programita.

Es más, es tan cutre que os voy a poner el código xD.

http://www.mediafire.com/?m4ehmxxmitt

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call recolocar()
    End Sub

    Public Sub recolocar()
        Button1.Left = (Me.Width / 2) - (paul.Width / 2)
        Button1.Top = 20
        paul.Left = (Me.Width / 2) - (paul.Width / 2)
        paul.Top = 50
        t1.Left = 12
        t2.Left = Me.Width - t2.Width - 17
        t1.Width = paul.Width + 1
        t2.Width = t1.Width
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call recolocar()
        Dim i As Integer
        Randomize()
        i = CInt(Int((2 * Rnd()) + 1))
        If i = 1 Then
            While Not paul.Left = t1.Left Or Not paul.Top = t1.Top - paul.Height
                If Not paul.Left = t1.Left Then
                    paul.Left = paul.Left - 1
                End If
                If Not paul.Top = t1.Top - paul.Height Then
                    paul.Top = paul.Top + 1
                End If
            End While
        Else
            While Not paul.Left = t2.Left Or Not paul.Top = t2.Top - paul.Height
                If Not paul.Left = t2.Left Then
                    paul.Left = paul.Left + 1
                End If
                If Not paul.Top = t2.Top - paul.Height Then
                    paul.Top = paul.Top + 1
                End If
            End While
        End If
    End Sub
End Class

resetreboot:

fuckyeahcomputerscience:

if (in_array(‘something strange’, $neighbourhood))
{
  $ghostbusters->call();
}

Vale, conectando VB2008 con un fichero access (he probado mdb y accdb) me da error en la clausula from!!

Codigo del modulo:

Module Module1
    Public conexion As ADODB.Connection
    Public Sub conectar()
        conexion = New ADODB.Connection
        conexion.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Documents and Settings\Administrador\Escritorio\chufla\database11.accdb”
        conexion.Open()
    End Sub
End Module

Codigo en form load:

conectar()
Dim rs As ADODB.Recordset
        Dim sql As String
        sql = “select * from tabla”
        rs = conexion.Execute(sql)

COMOCOÑOVAADARERRORESESELECT??? TAMOS TONTOS?? =)

Os posteo una cosilla, con la esperanza de que algún programador pueda ayudarme. Os explico:

Tengo que cargar cuadros de texto y cuadros de imagen en tiempo de ejecución. En los de texto funciona todo bien, pero con los de imagen…

Llega un momento en el programa que tengo que borrar todos los cuadros de texto. Bien, pues hay algunos que n ose borran. Os pongo el código relativo a esto:

For j = 1 To 3
             For Each nombreimg In Me.TabPage1.Controls
                If InStr(nombreimg.Name, “img”) >= 1 Then
                    Me.TabPage1.Controls.Remove(nombreimg)
                End If

            Next
Next

Explico el código. Se introduce en “nombreimg” todos los nombres de los objetos en un tabpage del formulario. Luego se comprueba que si ese nombre contiene la cadena “img” (al crear los cuadros de imagen, le pongo de nombre img1, img2 etc) pues que lo borre.

Y puede que se os venga a la cabeza dos preguntas.

1. Porque no creas los objetos en tiempo de ejecución en una matriz?
   Porque eso estaría muy bien en VB6, pero vb2008 (requerido por la API) no lo soporta, con lo que tengo que apañarmelas.
2. Porqué ejecutas el código 3 veces? (for j=1 to 3). Pues para forzar que busque más de una vez en los objetos, y que encuentre los que tengan de nombre “img”. Esto lo he hecho como “solución” a que no se borraban todos los cuadros de texto, pero sigue sin ir. Tampoco voy a poner que ejecute el código 1000 veces. Los borraría todos, si, pero a costa de un buen rato, mal programado.

Ahí lo llevais. Os pongo el código del formulario a ver si es que encontrais otra cosa (lo que empieza por comilla simple es comentado, para comprobar cosillas o distintas formas de hacerlo, pasad de ellas):

Public Class Form2
    Dim i As Integer
    Dim txt As New Windows.Forms.TextBox
    Dim nombretxt As Control, nombreimg As Control, j As Integer

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = tw.AccountInformation.ScreenName + ” en PhobosTwit”
        imgusuario.ImageLocation = tw.AccountInformation.ProfileImageUrl
        LinkLabel1.Text = tw.AccountInformation.ScreenName
        Call cargartwits()

    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Process.Start(tw.AccountInformation.Url)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        tw.Update(twitear.Text)
        twitear.Text = “”

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = “”
        Call borratwits()

    End Sub

    Public Function cargartwits()
        j = 1
        i = 0
        For Each tweet As TwitterVB2.TwitterStatus In tw.HomeTimeline()
            If TextBox1.Text = “” Then
                PictureBox1.ImageLocation = tweet.User.ProfileImageUrl
                TextBox1.Text = tweet.User.ScreenName + ” : ” + tweet.Text
            Else
                Dim txt As New Windows.Forms.TextBox
                Dim img As New Windows.Forms.PictureBox
                Me.TabPage1.Controls.Add(txt)
                Me.TabPage1.Controls.Add(img)
                With img
                    .Left = PictureBox1.Left
                    .Top = PictureBox1.Top + PictureBox1.Height + i
                    .Enabled = True
                    .Height = PictureBox1.Height
                    .Width = PictureBox1.Width
                    .Visible = True
                    .Name = Trim(“img”) ‘+ Trim(Str((j))))
                    .ImageLocation = tweet.User.ProfileImageUrl
                End With
                With txt
                    .Name = “txt” + Trim(Str((j)))
                    .BorderStyle = BorderStyle.FixedSingle
                    .BackColor = Color.Gainsboro
                    .Left = TextBox1.Left
                    .Top = TextBox1.Top + TextBox1.Height + i
                    .Enabled = True
                    .Multiline = True
                    .Height = TextBox1.Height
                    .Width = TextBox1.Width
                    .Visible = True
                    .Text = img.Name + tweet.User.ScreenName + ” : ” + tweet.Text
                    ‘.Text = img.Name
                End With
               
                i = i + 45
                j = j + 1
            End If
        Next

        For Each mention As TwitterVB2.TwitterStatus In tw.Mentions
            ListBox2.Items.Add(mention.User.ScreenName + ” : ” + mention.Text)
        Next

    End Function


    Public Function borratwits()
        Dim hastaloshuevos As String
        TextBox1.Text = “”
        j = 1
        For Each nombretxt In Me.TabPage1.Controls
            hastaloshuevos = Trim((“txt” + Trim(Str((j)))))
            If nombretxt.Name = hastaloshuevos Then
                ‘MsgBox(“ahilasdao”)
                Me.TabPage1.Controls.Remove(nombretxt)
                j = j + 1
            End If
        Next
        For j = 1 To 3
            For Each nombreimg In Me.TabPage1.Controls
                ’ hastaloshuevos = Trim(“img” + Trim(Str((j))))
                ‘If nombreimg.Name = hastaloshuevos Then
                If InStr(nombreimg.Name, “img”) >= 1 Then
                    ‘MsgBox(“ahilasdao”)
                    Me.TabPage1.Controls.Remove(nombreimg)
                End If
            Next
        Next
        Call cargartwits()
    End Function

End Class

Obviamente faltan cosas, que están en un módulo aparte y son indiferentes para este problema.