Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 10 odgovora
  • 3.188 pregleda

Najnovija ↓

ispis recenice, molim pomoc 30.01.2012. u 21:16 · pre 179 meseci #1
E ovako nadam se da moderator nece izbrisati temu, jer mozda trazim gotovo rijesenje. Ali nisam dugo radio u visual pa ako bi mi neko mogao napisati kod,
znaci ja sam formirao tri polja za unus teksta txt1, txt2, txt3 , polje txt4 treba da prikaze rezultat

npr. txt1=unesi boju kucu, txt2=unesi boju auta, txt3=unesi boju ograde, i onda da txt4 prikaze

moja kuca je crvena i svidja mi se puno, auto je staro ono je bijele boje, ogada je smedja nesvidja mi se.....tj
moja kuca je txt1 i svidja mi se puno, auto je staro ono je txt2, ograda je txt3 nesvidja mi se

Tj ne mogu se sjetiti da visual ispise dio rijeci pa doda unos (txt1) pa opet neki tekst pa unos(txt3)

Uglavnom da trebam neki program da nesto, pribroji, oduzme slozi, snasao bi se ali ovo za recenice ne znam bas pa molim za pomoc.

Pozdrav !
Potpis
http://www.igortomic.from.hr
Re: ispis recenice, molim pomoc 30.01.2012. u 21:36 · pre 179 meseci #2
evo nesto na brzinu

txt4.Text = "moja kuca je " & txt1.Text & " i svidja mi se puno, auto je staro ono je " & txt2.Text & ", ograda je " & txt3.Text & " nesvidja mi se"

tako bi od prilike trebalo da izgleda kod.
Potpis
[email protected]=
Re: ispis recenice, molim pomoc 31.01.2012. u 10:09 · pre 179 meseci #4
Mozeli se polje txt4 definirati kao neka varijabla, ne mora mi je prikazivati, i koja, tj polje txt4 se dobije na osnovu unosa txt1, txt2, txt3,

Tj napravio sam da na osnovu txt1, txt2, txt3, se formira link koji rucno oznacim i otvorim u pregledniku. A mozel nekako da definiram u programu da txt4 posalje "https zahtjev" (ako se to tako naziva) al da mi ne otvara zadani preglednik.

HVALA !
Potpis
http://www.igortomic.from.hr
Re: ispis recenice, molim pomoc 31.01.2012. u 11:07 · pre 179 meseci #5
Code:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, 
_ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String,
_ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Public Sub StartDoc(ByVal DocName As String)
    ShellExecute GetDesktopWindow(), "Open", DocName, "", "C:\", 1
End Sub 


Private Sub Command1_Click
    StartDoc "http://www.elitesecurity.org"
End Sub 


ili

Code:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long,
_ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String,
_ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Private Sub Command1_Click()
    ShellExecute 0, "open", Text1.Text, vbNullString, vbNullString, SW_MAXIMIZE
End Sub


samo izmeni ovo Text1.Text
Potpis
There are only 10 types of people in the world:
those who understand binary, and those who don't.
Re: ispis recenice, molim pomoc 31.01.2012. u 14:14 · pre 179 meseci #7
Nisi rekao da koristis VB2008, postoji razlika u odnosu na VB6...
Elem, sto se ovog _ByVal dela tice, pobrisi one donje crte "_" i stavi celu deklaraciju u jedan red i obrisi SW_MAXIMIZE pa probaj... ne trosim VB2008, u VB6 radi 1:1...

Pozdrav.
Potpis
There are only 10 types of people in the world:
those who understand binary, and those who don't.
Re: ispis recenice, molim pomoc 02.02.2012. u 21:20 · pre 179 meseci #10
Pomogao mi je korisnik aca andrijevic, pa da i ovje napisem rijesnje ako neko bude citao

Imports System.Net

Dim urlReq As HttpWebRequest
Dim urlResp As HttpWebResponse
Try
urlReq = WebRequest.Create(TextBox1.Text)
urlResp = urlReq.GetResponse
MessageBox.Show(urlResp.StatusDescription)
Catch ex As Exception
MessageBox.Show("Neuspesno povezivanje.Detaljnije:" + ex.Message)
End Try
Potpis
http://www.igortomic.from.hr
Re: ispis recenice, molim pomoc 02.02.2012. u 21:24 · pre 179 meseci #11
uH! e zato me mrzi da predjem na .NET! ;)
'ajd probaj ovo:
Code:

Dim link As String = "http://www.elitesecurity.org"
Process.Start(link)

a cini mi se da mozes i sa Inet1.OpenURL?

Pozdrav.
Potpis
There are only 10 types of people in the world:
those who understand binary, and those who don't.
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme