Kategori: Programlama

Sürekli bilgisayar başında çalışan insanlara yönelik ingilizce kelimeleri sürekli size hatırlatan programdır. Excel dosyasından kelimeleri okuyarak arasından rastgele seçip size hatırlatır. Bunun için buradaki dosyayı indirip excelle aynı yere koyarsınız ve çalıştırırsınız. Gizle diyerek arka plana atabilirsiniz. O zamanı gelince size bir kelime hatırlatacaktır. İsterseniz sağ alt köşedeki icona sağ tıklayarak süresini ayarlayabilirsiniz. Eğer bilgisayarım her

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Try My.Settings.sett1 = textbox1.text My.Settings.Save() Catch ex As Exception MsgBox(“Cycle timeları kaydetmede sorun oluştu.”, _ MsgBoxStyle.Critical, “kaydetme hatası”) End Try End Sub

Public Sub mailgonder(ByVal dosya As String, ByVal kullanici As String, ByVal sifre As String, ByVal kime As String) Dim iMsg, iConf, Flds iMsg = CreateObject(“CDO.Message”) iConf = CreateObject(“CDO.Configuration”) Flds = iConf.Fields

Imports System.Data.Odbc Private Sub connectas400() Dim vl As String Dim MyODBCConnection As New OdbcConnection("Driver={Client Access ODBC Driver (32-bit)};" & _

Zaman zaman kullandığım ve her ihtiyacım olduğu zaman internetten tekrar araştırmak zorunda kaldığım kod vb. notlardır. Sleep(Uyu) ile programı uyutmak. Formun içine içine Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)