C++ kodun Delphi deki Karşılığı

[brs]

Selam, Sanırım C++ yazılmış kodlar fakat delphiye uyarlayamadım yardımcı olabilecek arkadaşlara şimdiden teşekkürler...

Kod: Tümünü seç

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

Kod: Tümünü seç

End Sub

Kod: Tümünü seç

Private Sub

[Senat0r]

c# da ytazılmış sanırım kodun tamamını paylaşabilir misin ? Buttona tiklayince buttona tiklama olayini tetikliyor

[G.Arkas]

C# 'da sub diye bir olay yok iye biliyorum. Bu kodlar Vb ya da VB.Nettir.

[brs]

Kodun tamammı bu arkadaşlar...

Kod: Tümünü seç

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

Timer1.Enabled = True : Me.Text = "Processing."

Bulundu = "Hayir" : i = 0
Label3.Visible = False
LinkLabel1.Visible = False

WebBrowser1.Navigate("" & googletxt.text & "/search?hl=" & combobox1.text & "&q=" & KeywordsTxt.Text & "&start=0&sa=N")
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebBrowser1.DocumentCompleted
Lookup()
End Sub


Sub Lookup()
If Bulundu = "Evet" Then
Me.Text = "Google Page Number Finder"
Timer1.Enabled = False
Exit Sub
End If


If i = 50 Then
Exit Sub
MsgBox("Bulunamadi!")
Me.Text = "Google Page Number Finder"
Timer1.Enabled = False
End If

TextBox1.Text = WebBrowser1.DocumentText
IcerigeBak()

If i = 0 Then
WebBrowser1.Navigate("" & GoogleTxt.Text & "/search?hl=" & combobox1.text & "&q=" & KeywordsTxt.Text & "&start=0&sa=N")
Else
WebBrowser1.Navigate("" & GoogleTxt.Text & "/search?hl=" & combobox1.text & "&q=" & KeywordsTxt.Text & "&start=" & i & "0&sa=N")
End If

i = i + 1
End Sub
Sub IcerigeBak()

If Replace(TextBox1.Text, WebTxt.Text, "") <> TextBox1.Text Then
Bulundu = "Evet"

i = i - 1

If i = 0 Then
LinkLabel1.Visible = True : Label3.Visible = True
LinkLabel1.Text = "" & GoogleTxt.Text & "/search?hl=" & ComboBox1.Text & "&q=" & KeywordsTxt.Text & "&start=0&sa=N"
Else
LinkLabel1.Visible = True : Label3.Visible = True
LinkLabel1.Text = "" & GoogleTxt.Text & "/search?hl=" & ComboBox1.Text & "&q=" & KeywordsTxt.Text & "&start=" & i & "0&sa=N"
End If

End If

End Sub

[hido]

Dostum Ne Yaptın Çözebildin Mi?

[ovural]

Kod: Tümünü seç

  
procedure TForm1.Button1Click(Sender: TObject);
begin

    Timer1.Enabled := True ;

    Me.Text := 'Processing.';

    Bulundu := 'Hayir' ; i := 0;
    Label3.Visible := False ;
    LinkLabel1.Visible := False;

    WebBrowser1.Navigate(googletxt.text + '/search?hl=' + combobox1.text + '&q=' + KeywordsTxt.Text + '&start=0&sa=N');
end;

procedure TForm1.IcerigeBak;
begin
  If StringReplace(TextBox1.Text, WebTxt.Text, '',[rf ) <> TextBox1.Text Then
    Bulundu := 'Evet';

    dec( i );

    If i = 0 Then
    begin
      LinkLabel1.Visible := True ; Label3.Visible := True;
      LinkLabel1.Text :=  GoogleTxt.Text + '/search?hl=' + ComboBox1.Text + '&q=' + KeywordsTxt.Text + '&start=0&sa=N';
    end
    Else
    begin
      LinkLabel1.Visible := True ; Label3.Visible := True;
      LinkLabel1.Text := GoogleTxt.Text + '/search?hl=' + ComboBox1.Text + '&q=' + KeywordsTxt.Text + '&start=' + InttoStr(i) + '0&sa=N';
    End;

end;

procedure TForm1.Lookup;
begin
    If Bulundu = 'Evet' Then
    begin
        Me.Text := 'Google Page Number Finder';
        Timer1.Enabled := False;
        Exit;
    End


    If i = 50 Then
    begin
        ShowMessage('Bulunamadi!');
        Me.Text := 'Google Page Number Finder';
        Timer1.Enabled := False;
        Exit;
    End;

    TextBox1.Text := WebBrowser1.DocumentText;
    IcerigeBak;

    If i = 0 Then
       WebBrowser1.Navigate(GoogleTxt.Text + '/search?hl=' + combobox1.text + '&q=' + KeywordsTxt.Text + '&start=0&sa=N')
    Else
        WebBrowser1.Navigate(GoogleTxt.Text + '/search?hl=' + combobox1.text + '&q=' + KeywordsTxt.Text + '&start=' + IntToStr(i) + '0&sa=N');

    inc( i );


end;

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
    Lookup;
end;


end.