vb.net: kod

kod etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster

11 Nisan 2015 Cumartesi

VB.Net Uygulamasına Harita Eklemek

İkinci el araç alım satımında kullanılan cihazlar hakkında bilgi almak isterseniz burayı tıklayın

NOT : İnternet olduğu sürece gösterir

1- Bir tane VB.Net projesi oluşturun.
2- Projeye bir adet 'WebBrowser' ekleyin. Adını ' Tarayici ' olarak değiştirin.
3- Yeni bir metin dosyası açın ve aşağıdaki HTML kodlarını yapıştırın. 'Farklı Kaydet' seçeneğine tıklayın. 'Kayıt türü' olarak 'Tüm Dosyalar' seçin ve 'GoogleHarita.html' olarak kaydedin. veya buradan hazır indirin
4- 'GoogleHarita.html' dosyasını 'My Project' - 'Resources' kısmına sürükleyip ekleyin.
5- Son olarak projenin 'Load' kısmına Alttaki kodu kopyalayıp ekleyin;

Form_Load Kısmı

HTML KODLARI :

<<!DOCTYPE html><html>  <head>    <meta name="viewport" content="initial-scale=1.0, user-scalable=no">    <meta charset="utf-8">    <style>      html, body, #map-canvas {         height: 100%;         margin: 0px;         padding: 0px       }     </style>    <script src="https://maps.googleapis.com/maps/api/js?v=3.exp&sensor=false"></script>    <script>var map; function initialize() {   var mapOptions = {     zoom: 6,  panControl:true,  panControlOptions: {         position: google.maps.ControlPosition.RIGHT_TOP},     zoomControl:true,      zoomControlOptions: {style: google.maps.ZoomControlStyle.SMALL, position: google.maps.ControlPosition.LEFT_TOP},  scaleControl: true,     streetViewControl: true,         streetViewControlOptions: {position: google.maps.ControlPosition.LEFT_TOP},     mapTypeControl:true,     center: new google.maps.LatLng(39, 35.5)};     map = new google.maps.Map(document.getElementById('map-canvas'),     mapOptions); } google.maps.event.addDomListener(window, 'load', initialize);   </script>  </head>  <body>  <div id="map-canvas"></div></body></html>

HAZIR ÖRNEK KOD İNDİR
SADECE EXE HARİTA (Kod ile ilgilenmeyenler için) İNDİR

22 Ocak 2015 Perşembe

ErAsRich Editör_KOD_v3.3.1.4

Editör kod örnek RichTextBox

22.01.2015 Güncellendi

ErAsRich Editör_Setup_v3.3.1.4 (İNDİR)

ErAsRich Editör_KOD_v3.3.1.4 İNDİR

RichTextBox ile yapılmış Word türü Bir Text düzenleme Editörü.. Windows'un NotePad Editöründen daha kapsamlı, WinWord ve Word'den daha az yetenekleri olan bir Editör.

Textlerimiz *.RTF ve *.TXT *.HTML biçiminde saklanabilir.

Normal Bir Editörle yapılan işlemleri yapabilirsiniz.
Metinlerinizi; Renklendirebilir, Farklı Font ve boyutları kullanabilir, Dışardan bir dosyayı Editör üstüne sürükleyerek resim ekleyebilirsiniz.
Dosyayı saklama biçimini saklama menüsünden seçip ".TXT" veya ".RTF" Formatında saklayabilirsiniz. Resim ve renk içeren işlemlerde Dosya biçimi ".RTF" olmalıdır.
Sürüklenen (.txt,.rtf) türü Metin ve Resim dosyaları burada açılır. Diğer tür dosyalar ise; Kendi türündeki programlarla otomatikman açılır.
Sadece Değişiklik Yapılıp Saklanan dosyalar "Sık Çalıştırılanlar" Listesine eklenir.
Dışardan ErAsRich Editör'e sürüklenen TXT , RTF, HTML uzantılı dosya açılır. Farklı Uzantılı ise ilgili Programla açılır.*.EXE ise çalıştırılır
Gezginden Tıklanan txt ,rtf, HTML uzantılı dosyalar "Birlikte Aç" tan konumlandırılan bu programla açılır
ErAsRich Text Editör içinden parlak URL satırları Çift Tıklanarak İnternet Explorer'de Açılabilir.

3 Haziran 2014 Salı

BAŞLIKSIZ, TAŞINABİLİR VE BOYUTLANIR FORM

başlıksız form form taşıma kod vb.net

BAŞLIKSIZ, TAŞINABİLİR VE BOYUTLANIR FORM KODLARI İNDİR

'   başlıksız form Public Class Form1     Private mouse_offset As Point       Protected Overrides ReadOnly Property CreateParams() As CreateParams         Get             Const WS_CAPTION As Integer = &HC00000              Dim baseParams As CreateParams = MyBase.CreateParams              'Başlık olmasın             baseParams.Style = baseParams.Style And Not WS_CAPTION              Return baseParams         End Get     End Property        Private Sub PictureBox1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown         mouse_offset = New Point(-e.X, -e.Y)         If e.Button = Windows.Forms.MouseButtons.Right Then             Me.Close()          End If     End Sub      Private Sub PictureBox1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove         If e.Button = MouseButtons.Left Then             Dim mousePos As Point = Control.MousePosition             mousePos.Offset(mouse_offset.X, mouse_offset.Y)             Location = mousePos         End If     End Sub  End Class

2 Haziran 2014 Pazartesi

DİZİ ÖRNEĞİ (Günler,Aylar)

dizi dizi işleme kod proje vb.net

DİZİ İŞLEME PROJE ÖRNEK KODLAR İNDİR

Public Class Form1     Dim gunler() As String = {"pazartesi", "salı", "çarşamba", "perşembe", "cuma", "cumaretesi", "pazar"}     Dim aylar() As String = {"Oacak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran", "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık"}      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         ListBox1.Items.Clear()         If RadioButton1.Checked = True Then             For i = 0 To 4                 ListBox1.Items.Add(gunler(i))             Next         End If          If RadioButton2.Checked = True Then             For i = 5 To 6                 ListBox1.Items.Add(gunler(i))             Next         End If          If RadioButton3.Checked = True Then             For i = 0 To 6                 ListBox1.Items.Add(gunler(i))             Next         End If      End Sub      Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click         ListBox1.Items.Clear()         For i = 0 To 11             ListBox1.Items.Add(aylar(i))         Next     End Sub End Class

vb.net

reklam