#vb.net c

* vb c# ‘da Programin Kapatıldığı yerden kordinattan açılması - My Project kısmından Settings kısmına My.Settings öğeleri olarak text1 text2 mylocx mylocy 4 String ekliyoruz. form1 e 2 textbox ekliyoruz Kodu: Public Class Form1 Dim MYX As Integer Dim MYY As Integer ‘save settings Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing ‘çıkışta hatırla ekranın yerini MYX = Me.Location.X MYY = Me.Location.Y ‘ My.Settings.text1 = TextBox1.Text My.Settings.text2 = TextBox2.Text My.Settings.mylocx = MYX My.Settings.mylocy = MYY End Sub ‘load settings Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load TextBox1.Text = My.Settings.text1 TextBox2.Text = My.Settings.text2 ‘ Alt satır önemli herzaman hatırladığından ilk mylocx ve mylocy ‘ boş geleceğinden program çalışmaz kesin yazılmalı If My.Settings.mylocx = “” Or My.Settings.mylocx = “” Then My.Settings.mylocx = “0″ My.Settings.mylocx = “0″ Else Me.Location = New Point(My.Settings.mylocx, My.Settings.mylocy) End If End Sub End Class >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> //load settings private void Form1_Load(object sender, EventArgs e) textBox1.Text = Properties.Settings.Default.mylocx; textBox2.Text = Properties.Settings.Default.mylocy; // Alt satır önemli herzaman hatırladığından ilk mylocx ve mylocy // boş geleceğinden program çalışmaz kesin yazılmalı MessageBox.Show(Properties.Settings.Default.text1); if (string.IsNullOrEmpty(Properties.Settings.Default.mylocx) //save settings private void Form1_FormClosing(object sender, FormClosingEventArgs e) int MYX; int MYY; //çıkışta hatırla ekranın yerini MYX = this.Location.X; MYY = this.Location.Y; // Properties.Settings.Default.text1 = textBox1.Text; Properties.Settings.Default.text2 = textBox2.Text; Properties.Settings.Default.mylocx = Convert.ToString(MYX); Properties.Settings.Default.mylocy = Convert.ToString(MYY); Properties.Settings.Default.Save(); // Important for saving —————————————————— ——————————————————

* vb c# ‘da Kelimeleri boşluklu parçala listboxa ekle iteme ilave etme kod: Public Class Form1 Dim kelime() As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click On Error Resume Next Dim say As Integer kelime = TextBox1.Text.Split(” “) For say = 0 To kelime.Length – 1 ListBox1.Items.Add(kelime(say)) Next End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click On Error Resume Next MsgBox(ListBox1.Items(TextBox2.Text).ToString()) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click On Error Resume Next ListBox1.Items(TextBox2.Text) = TextBox3.Text & ListBox1.Items(TextBox2.Text).ToString() MsgBox(ListBox1.Items(TextBox2.Text).ToString()) End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged On Error Resume Next TextBox2.Text = ListBox1.SelectedIndex End Sub End Class >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> private void button1_Click(object sender, EventArgs e) string[] kelime; int say = 0; kelime = textBox1.Text.Split(‘ ‘); for (say = 0; say <= kelime.Length – 1; say++) listBox1.Items.Add(kelime[say]); —————————————————— ——————————————————

* vb c# ‘da Web sayfasının kodunda değil görünümünde aradığın varmı,aradığın kaç tane var koşulunu kullanma Mesala javascript var belli bir hareket süreden sonra yazı çıkar ama bu kodda yoktur. Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load WebBrowser1.ScriptErrorsSuppressed = True WebBrowser1.Navigate(“www.google.com.tr”) End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Timer1.Interval = 1000 ‘ 1sn If Len(TextBox1.Text) > 2 = True Then ‘üstekini yazmamın nedeni TextBox1.Text de yazılan yoksa arama yapmasın program kilitlenmesin diye ‘ en az 3 haneli arama yaptım ‘ isterseniz TextBox1.Text yerine aradığınızı “” arasına yazabilirsiniz altta. Dim nearican As String = TextBox1.Text Dim kerkurdoc As HtmlDocument = WebBrowser1.Document Dim b As String = kerkurdoc.Body.InnerText.ToLower() Dim kactane As Integer = 0 ‘ MessageBox.Show(b) ‘burasi html sayfasının tamamında görünen kismi aranacak ifadelerin hepsi While b.IndexOf(nearican) <> -1 kactane += 1 b = b.Substring(b.IndexOf(nearican) + nearican.Length, b.Length - b.IndexOf(nearican) – nearican.Length) End While ‘ MessageBox.Show(adet.ToString()) If kactane.ToString() > 0 = True Then MsgBox(” Sayfada ” & kactane.ToString() & ” kadar ” & TextBox1.Text & ” var.”) ‘burada aranan varsa butona bas diyebilirsiniz. msgbox yerine Timer1.Stop() Exit Sub End If End If End Sub Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating On Error Resume Next Timer1.Stop() End Sub End Class >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> private void button1_Click(object sender, EventArgs e) timer1.Start(); private void timer1_Tick(object sender, EventArgs e) { timer1.Interval = 1000; // 1sn if ((textBox1.Text).Length > 2 == true) //üstekini yazmamın nedeni TextBox1.Text de yazılan yoksa arama yapmasın program kilitlenmesin diye // en az 3 haneli arama yaptım // isterseniz TextBox1.Text yerine aradığınızı “” arasına yazabilirsiniz altta. string nearican = textBox1.Text; HtmlDocument kerkurdoc = webBrowser1.Document; string b = kerkurdoc.Body.InnerText.ToLower(); int kactane = 0; // MessageBox.Show(b) ‘burasi html sayfasının tamamında görünen kismi aranacak ifadelerin hepsi while (b.IndexOf(nearican) != -1) kactane += 1; b = b.Substring(b.IndexOf(nearican) + nearican.Length, b.Length – b.IndexOf(nearican) – nearican.Length); // MessageBox.Show(adet.ToString()) if (kactane > 0 == true) timer1.Stop(); MessageBox.Show(” Sayfada ” + kactane.ToString() + ” kadar ” + textBox1.Text + ” var.”); //burada aranan varsa butona bas diyebilirsiniz. msgbox yerine timer1.Stop(); return; —————————————————— ——————————————————

* vb c# ‘da Bir Web Sayfasının Html Kodunu Hemen Notdefteri ni Açıp içine Yükleme On Error Resume Next Dim source As [String] = (“kaynakhtml.txt”) ‘ Imports System.IO zorunlu alt satır için Dim writer As StreamWriter = File.CreateText(source) writer.Write(WebBrowser1.DocumentText) writer.Close() Process.Start(“notepad.exe”, source) >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> String source = (“kaynakhtml.txt”); // using System.IO zorunlu alt satır için System.IO.StreamWriter writer = System.IO.File.CreateText(source); writer.Write(webBrowser1.DocumentText); writer.Close(); System.Diagnostics.Process.Start(“notepad.exe”, source); —————————————————— ——————————————————

* vb c# ‘da Html sayfası resources da değil kodda navigate etme Html sayfası resources da değil kodda navigate etme kodda entera basmadan html kodu yazılmalı altsatıra Altsatıra kodda devam et yok ” _ ” bu işaret yani HTML kodunu Me.WebBrowser1.Navigate(“about:<html> </html>”) arasında yazmalısınız. örnek aşağıda. Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load On Error Resume Next WebBrowser1.ScriptErrorsSuppressed = True Me.WebBrowser1.Navigate(“about:<html><title>html sayfası resources değil kodda</title><body> <h1>Hoşgeldiniz</h1> <p>örnek</p> </body> </html>”) End Sub Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted On Error Resume Next Me.Text = WebBrowser1.DocumentTitle End Sub End Class >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> private void Form1_Load(object sender, EventArgs e) webBrowser1.ScriptErrorsSuppressed = true; webBrowser1.Navigate(“about:<html><title>html sayfası resources değil kodda</title><body> <h1>Hoşgeldiniz</h1> <p>örnek</p> </body> </html>”); —————————————————— ——————————————————

* vb c# ‘da HTML Sayfasını (WebBrowser1.DocumentText değiştirmek) Düz Metine Çevirme Public Function HTMLdenDuzMetinOlustur(metin As String) As String If metin Is Nothing OrElse metin = String.Empty Then Return String.Empty End If Return System.Text.RegularExpressions.Regex.Replace(metin, “<[^>]*>”, String.Empty) End Function Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click WebBrowser1.DocumentText = HTMLdenDuzMetinOlustur(WebBrowser1.DocumentText) End Sub >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> public string HTMLdenDuzMetinOlustur(string metin) if (metin == null private void button2_Click(object sender, EventArgs e) webBrowser1.DocumentText = HTMLdenDuzMetinOlustur(webBrowser1.DocumentText); —————————————————— ——————————————————

* vb c# ‘da Listbox ‘ı txt Dosyasından Doldurma Dim r As IO.StreamReader r = New IO.StreamReader(“yeni.txt”) While (r.Peek() > -1) listbox1.Items.Add(r.ReadLine) End While r.Close() >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> // “yeni.txt” bu şekil programın dizininde oldugu // “klasor7/yeni.txt” bu şekil programın dizinindeki klasor7 içinde oldugunu belirtir. // try komutu konmalı dosya yoksa kod hata verir. System.IO.StreamReader r = null; r = new System.IO.StreamReader(“yeni.txt”); while ((r.Peek() > -1)) listBox1.Items.Add(r.ReadLine()); r.Close(); —————————————————— ——————————————————

* vb c# ‘da Webbrowserda Yeni pencere linkine tıkladığında aynı çerçevede kalma yeni bir pencerede açma linkini kendi form çerçevesinde açma internet explorerda açmamasını sağlayan kod form da import edilecek en başta Imports System Public Class … devam eder başlangıca import lar Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow On Error Resume Next Dim myElement As HtmlElement = WebBrowser1.Document.ActiveElement Dim target As String = myElement.GetAttribute(“href”) Dim kerform As New Form1 kerform.Visible = True kerform.WebBrowser1.Navigate(target) e.Cancel = True End Sub >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> // link a href ise geçerli yoksa webbrowser module eklenmeli her link açılsın diye. private void webBrowser1_NewWindow(object sender, CancelEventArgs e) HtmlElement myElement = webBrowser1.Document.ActiveElement; string target = myElement.GetAttribute(“href”); Form1 kerform = new Form1(); kerform.Visible = true; kerform.webBrowser1.Navigate(target); e.Cancel = true; —————————————————— ——————————————————