Keskustelu: Ohjelmointikysymykset: VB6: Picturebox ja Word ongelma

pointer [01.11.2012 10:43:17]

Hei!
Ohjelmassani Picturebox1 muodostaa taustan ja mitoiltaan pienempi Picturebox2 on vapaasti siirrettävissä Picturebox1 päällä. Kun Käyttäjä on siirtänyt Picturebox2 haluamaansa kohtaan hän painaa tallenna. Ohjelma luo word documentin, mutta miten saan molemmat pictureboxit tulostumaan yhdeksi käyttäjän valitsemaksi kuvaksi?

Kiitos!

Grez [01.11.2012 10:57:48]

Jos kertoisit vähän mitä tekniikoita käyttäen olet ohjelmaasi toteuttanut, niin vastaaminen olisi helpompaa.

pointer [01.11.2012 11:05:30]

oWord = CreateObject("Word.Application")
        oWord.Visible = True
        oDoc = oWord.Documents.Add(My.Settings.Kuva_Polku)


        oDoc.Bookmarks("Nimi").Range.Text = Nimi.Text

Private Sub PictureBox2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown
 Go = True

    End Sub

    Private Sub PictureBox2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove


        If Go = True Then

           HoldLeft = (Control.MousePosition.X - Me.Left)

            HoldTop = (Control.MousePosition.Y - Me.Top)

            If TopSet = False Then

                OffTop = HoldTop - sender.Top

                TopSet = True

            End If

            If LeftSet = False Then

                OffLeft = HoldLeft - sender.Left


                LeftSet = True

            End If

            sender.Left = HoldLeft - OffLeft

    End Sub

    Private Sub PictureBox2_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp
        Go = False
        LeftSet = False
        TopSet = False


    End Sub

pointer [02.11.2012 08:43:05]

Eikös tämän voisi tehdä printscreenillä? mutta miten se tehdään?

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen