Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pozivanje slike u VB

[es] :: Access :: Pozivanje slike u VB

[ Pregleda: 2579 | Odgovora: 9 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

erc kragujevac
Radomir Brzakovic
Focal point for SAP

Član broj: 30491
Poruke: 144
*.zastava.net.



+2 Profil

icon Pozivanje slike u VB29.05.2008. u 13:05 - pre 192 meseci
Tabela ima id(autonumber),opis(text) i slika(ole object).Podatke iz tabele treba prikazati u Power Pointu tako da se sa promenom vrste menja sadrzaj slajda.Iskoristio sam Access2Power Point skinut sa interneta i to lepo funkcionise.tabele je napunjena ,ali ne mogu da nadjem nacin da u kodu(on click) pozovem sliku i posaljem je na slajd. ima li neko ideju.Deo kod u kome je problem resen za tekst izgleda ovako


Private Sub Command1_Click()

Dim db As Database, rs As Recordset
Dim ppObj As PowerPoint.Application
Dim ppPres As PowerPoint.Presentation

On Error GoTo err_cmdOLEPowerPoint

' Open up a recordset on the Table1 table.
Set db = CurrentDb
Set rs = db.OpenRecordset("Table1", dbOpenDynaset)

' Open up an instance of Powerpoint.
Set ppObj = New PowerPoint.Application
Set ppPres = ppObj.Presentations.Add

' Setup the set of slides and populate them with data from the
' set of records.
With ppPres
While Not rs.EOF
With .Slides.Add(rs.AbsolutePosition + 1, ppLayoutTitle)
.Shapes(1).TextFrame.TextRange.Text = "Hi! Page " & rs.AbsolutePosition + 1
.SlideShowTransition.EntryEffect = ppEffectFade


With .Shapes(2).TextFrame.TextRange


.Text = CStr(rs.Fields("opis").Value)
.Characters.Font.Color.RGB = RGB(255, 0, 255)
.Characters.Font.Shadow = True
End With
.Shapes(1).TextFrame.TextRange.Characters.Font.Size = 50
End With
rs.MoveNext
Wend
End With

' Run the show.
ppPres.SlideShowSettings.Run

Exit Sub

err_cmdOLEPowerPoint:
MsgBox Err.Number & " " & Err.Description
End Sub

Zna li neko kako bi koristeci ovo
With .Shapes(2).TextFrame.TextRange


.Text = CStr(rs.Fields("opis").Value)
.Characters.Font.Color.RGB = RGB(255, 0, 255)
.Characters.Font.Shadow = True
End With

mogao da pozovem slike smestene u tabelu kao ole object.
 
Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.rs.



+8 Profil

icon Re: Pozivanje slike u VB29.05.2008. u 18:27 - pre 192 meseci
Ko će kome ako neće svoj svome. Lepo je sresti nekoga ko je iz Kragujevca kao ja.

Bio si blizu rešenja, falio ti je samo jedan redić. Implementirao sam tvoj kod i dodao malo svog i dobio konačno rešenje. Dodao sam polje Velicina u koje treba upisati Velicinu fajla da bi se isti takav mogao izvuci iz ole field.

Pozdrav i javi ako vam zatreba radnik
Ozbiljan i odgovoran mladić
Prikačeni fajlovi
 
Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.



+79 Profil

icon Re: Pozivanje slike u VB29.05.2008. u 20:06 - pre 192 meseci
Evo prosirenje zadatka za Nikolu: daj obrnutu operqaciju, sliak iz tabele da ide na disk (valjda se samoGetChunk promeni u PutChunk ili tako nesto, ima u BooksOnLine za MS SQL server).

Jos jedno moguce prosirenje: sta ako je tabela gde se slike smestaju linkovana ODBC tabela (MS SQL, ORACLE), da li ce kod da radi?

Kad sve to zavrsis, da dodas post u Bazu Znanja. Unapred hvala.

A ovi iz Zastave zaista ne znaju sta gube. Nikola je jedan od glavnih majstora na forumu i gubitak je za svaku firmu koja ga nema na spisku zaposlenih.



 
Odgovor na temu

erc kragujevac
Radomir Brzakovic
Focal point for SAP

Član broj: 30491
Poruke: 144
*.zastava.net.



+2 Profil

icon Re: Pozivanje slike u VB30.05.2008. u 06:32 - pre 192 meseci
Nikola,
Hvala na pomoci i ovo ce mi mozda koristiti. U principu nije mi bitno kako cu razlicite slike da unosim u tabelu(insert object on form,copy paste ili naredbom na dugme(pomocu koda),ali je bitno da su to razlicite slike(do 10 slika) i odgovarajuci text u polju opis. Treba da pozivam text i sliku i da ih direktno saljem na power point slajd.Polazi se od prvog sloga u tabeli i prikazuje sadrzaj (text + slika) sve dok ima slogova u tabeli.evo kako to otprilike funkcionise sa textom i tabelom.Molim te da probas i nadjes resenje za pozivanje slike (po id-u iz tabele). Ima li veze sto sam slike insertovao kao jpg i to insert object na formi. Ako treba u tabelu da ih ubacim sa dogadjajem on click i ckodom -napisi da mora tako. Javi cu ti za posao,a ti javi znas li internet programiranje jer jedan moj drugar non stop trazi programere i lepo placa.
Prikačeni fajlovi
 
Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.rs.



+8 Profil

icon Re: Pozivanje slike u VB03.06.2008. u 10:42 - pre 192 meseci
U slobodno vreme radim na rešavanju problema koji sam uočio tek kada sam i ja instalirao Microsoft Photo Editor. Problem je u tome što kada se to učini Access doda gomilu podataka za renderovanje slike u OLE field (overhead data), tako da ne znam od kog offseta treba da snimim sliku u file. Biće ti jasnije kada klikneš na dugme i pogledaš Immediate Window, tamo sam napisao koliko prostora zauzima slika na disku, a koliko u OLE field.

Svejedno je kako dodaješ sliku u Access, trenutno moramo da se zadovoljimo sledećom improvizacijom. Kada prevučeš sliku na formu u polje Slika, popuni TAČNO polje velicina.

Kada sliku ubaciš jednom, napravi kopiju slike na HDD sa izmenjenom extenzijom (umesto NekaSlika.jpg snimi file kao NekaSlika.jp) i ubaci je u polje obeleženo kao SlikaRAW. To je polje iz koga će se slika snimiti na HDD, a promena extenzije slike će sprečiti Access da u to polje ubaci taj Overhead (pogledaj Immediate Window pa će ti biti jasnije).

Znaci da ponovim, sliku ubacuješ DVA puta, jednom sa ekstenzijom .JPG (.BMP) u polje Slika i Access će je prikazati na formi. Drugi put je ubaci sa ekstenzijom .JP (.BM) u polje SlikaRAW.

Dok ne smislim nešto bolje pozdrav

[Ovu poruku je menjao domaci_a_nas dana 03.06.2008. u 12:03 GMT+1]
Ozbiljan i odgovoran mladić
Prikačeni fajlovi
 
Odgovor na temu

erc kragujevac
Radomir Brzakovic
Focal point for SAP

Član broj: 30491
Poruke: 144
*.zastava.net.



+2 Profil

icon Re: Pozivanje slike u VB16.06.2008. u 13:06 - pre 192 meseci
Hvala na pomoci! Tek sada pregledam mejl posto sam bio odsutan. Primer koji si mi ti poslao prvi put funkcionise,ali samo za tri slike koje si ti ubacio u tabelu.prihvata da na slajdu pokaze i sliku iz tabele koju menjam(tvoje slike),ali kada u tabelu na tom mestu ubacim novu sliku sa istim nazivom i odgovarajucom velicinom kaze da ne moze da nadje fajl. molim te provali ovu glupost i veliko HVALA za dosadasnju pomoc. VELIKI POZDRAV
 
Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.rs.



+8 Profil

icon Re: Pozivanje slike u VB16.06.2008. u 14:48 - pre 192 meseci
Pošalji mi bazu sa slikama koje si ti ubacio pa ću probati nešto da iskombinujem. Kada se slika insertuje u bazu preko koda koji ću okačiti čim ga nađem onda nema problema da se snima direktno iz OLE polja. Kada Access insertuje sliku preko OLE objekta onda dodaje overhead data za renderovanje, treba samo razgraničiti šta je slika a šta overhead data. Jesi li snimio sliku dva puta, jednom sa promenjenom extenzijom?
Ozbiljan i odgovoran mladić
 
Odgovor na temu

erc kragujevac
Radomir Brzakovic
Focal point for SAP

Član broj: 30491
Poruke: 144
*.zastava.net.



+2 Profil

icon Re: Pozivanje slike u VB24.06.2008. u 09:20 - pre 191 meseci
izvini sto se tek sada javljam.Bio sam na odmoru,a i pokusavao sam da resim problem sam.Okacicu ti bazu.kod za smestanje slike u tabelu(click na dugme sam nasao i nije mi problem da tabelu napunim na taj nacin). treba mi resenje kako da sliku koja je u tabeli ole object pozovem i posaljem na slajd. Kako da ovaj deo koda

With .Shapes(2).TextFrame.TextRange


.Text = CStr(rs.Fields("opis").Value)
.Characters.Font.Color.RGB = RGB(255, 0, 255)
.Characters.Font.Shadow = True
End With

kojim se poziva tekstualno polje iz tabele primenim na pozivanje slike. unapred velikop hvala i veliki pozdrav za zemu.
Prikačeni fajlovi
 
Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.rs.



+8 Profil

icon Re: Pozivanje slike u VB25.06.2008. u 00:10 - pre 191 meseci
Izvini, ali ti ne koristiš kao osnovu bazu koju si dobio od mene, ne znam kako očekuješ da kod radi ?

Tabela Table1 iz tvog poslednjeg attacha ima kolone :

1) id
2) slika
3) opis
4) opise

Tabela Table1 iz mog poslednjeg attacha ima kolone :
1) id
2) slika
3) SlikaRAW
4) opis
5) opise
6) Velicina

Znači, DVA POLJA VIŠE. Ja odavno sumnjam da ti i ne gledaš detaljno bazu koju ja okačim, što me iskreno pomalo i vređa i neću ti više pomagati oko ovog projekta, posebno zato što sam ubeđen da već imaš rešenje.

Pozdrav.
Ozbiljan i odgovoran mladić
 
Odgovor na temu

erc kragujevac
Radomir Brzakovic
Focal point for SAP

Član broj: 30491
Poruke: 144
*.zastava.net.



+2 Profil

icon Re: Pozivanje slike u VB25.06.2008. u 06:39 - pre 191 meseci
Ne znam zasto se ljutis. Ja se sa VB sada srecem prvi put posle 10 godina,a i tada sam radio nesto najosnovnije. Mnogo gresis ako mislis da imam resenje i da ne koristim tvoju pomoc,ali mozda nisam najvestiji u primeni. Koristio sam tvoju bazu -Baza sa slikama u kojoj imas dva modula,ali nisam uspeo da u tabelu ubacim svoju sliku i velicinu,a da to posle radi na slajdu. Resenje sa ubacivanjema polja slikaRaw nisam primenio jer mi je bitno da slike ne moram da cuvam na hardu. Poslao sam ti bazu sa slikama koje sam ja ubacio jer sam tako shvatio iz tvojg prethodnog odgovora(Pošalji mi bazu sa slikama koje si ti ubacio pa ću probati nešto da iskombinujem. Kada se slika insertuje u bazu preko koda koji ću okačiti čim ga nađem onda nema problema da se snima direktno iz OLE polja. ) .Ako sam pogresio izvini i molim te pomozi. Kod za ubacivanje slike u tabelu sam nasao na internetu(ali je ubacivanje sa putanjom sto bih izbegao ako moze),ali ne umem da pozovem sliku kao ole object iz tabele. Ima li sanse da se pozivanje slike kao ole objecta iz tabele uradi na slican nacin kao i pozivanje teksta

With .Shapes(2).TextFrame.TextRange


.Text = CStr(rs.Fields("opis").Value)
.Characters.Font.Color.RGB = RGB(255, 0, 255)
.Characters.Font.Shadow = True
End With


unapred hvala

veliko izvinjenje

zemo,ajmo na pivo i ne ljuti se jer nisam covek koji bi bilo koga zezao i gnjavio da imam resenje,a nisam ni nezahvalan da ne pokusam da primenim jedinu pomoc koju dobijam.

VELIKI POZDRAV
 
Odgovor na temu

[es] :: Access :: Pozivanje slike u VB

[ Pregleda: 2579 | Odgovora: 9 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.