>

formunuzun borderstyle ozelligini 0 yapin
Private Sub Form_Load()
App.TaskVisible = False
End Sub

yazin artik calisan programiniz hem gorev yoneticisinde gorunmeyecek,hem de baslikta kalkacak.

>

Option Explicit
Private setX As Integer, setY As Integer 'Bunu Formun En Ust Kısmına Yazın...

'Buraya " lblTitleBar" Adında Bir Picturebox Yaratıyoruz Ve Formumuz Kolayca Heryare Tasınıyor....

Private Sub lblTitleBar_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next

setX = x
setY = y
End Sub

Private Sub lblTitleBar_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next

If Button = 1 Then
Me.Left = Me.Left + (x - setX)
Me.Top = Me.Top + (y - setY)
End If
End Sub

>

MSFlex Grid'e sığmayan yazıları tıkladığınızda bir tooltip şeklinde tam olarak goruntuleyebilirsiniz. Bunu icin flexgrid'in selectionchange kısmında tooltipi textmatrix(rowsel,colsel) olarak ayarlayın. Gercekten guzel gozukuyor ve yeniden boyutlandırmayla uğraşmamış oluyorsunuz.

>

orneğin rehber adlı bir tablonuz var bu tabloda muşterino larını gore suzme yapmanız gerekiyo ve bu işlemi text kutusuyla yapmak istiyosanız aşağıya bakın

dim t
t="'" & text1.text & "*'"
Data2.RecordSource = "select * from rehber where MusteriNo like " & t & ""
Data2.Refresh



1.1.1. Renk Sabitleri
Sabit Değer Acıklama
vbBlack &h00 Siyah
vbRed &hFF Kırmızı
vbGreen &hFF00 Yeşil
vbYellow &hFFFF Sarı
vbBlue &hFF0000 Mavi
vbMagenta &hFF00FF Gul Kurusu
vbCyan &hFFFF00 Turkuaz
vbWhite &hFFFFFF Beyaz
Tablo 2 : Renk Sabitleri.
1.1.2. Tarih ve Zaman Sabitleri
Sabit Değer Acıklama
vbSunday 1 Pazar
vbMonday 2 Pazartesi
vbTuesday 3 Salı
vbWednesday 4 Carşamba
vbThursday 5 Perşembe
vbFriday 6 Cuma
vbSaturday 7 Cumartesi
vbUseSystem 0 Sunucunun bolgesel ayarlarında yer alan tarih veya zaman bicimini kullan
vbUseSystemDayOfWeek 0
vbFirstJan1 1 1 Ocak gununun icerisinde yer aldığı haftayı kullan
vbFirstFourDays 2 En az 4 gunu yeni yılda olan ilk haftayı kullan
vbFirstFullWeek 3 7 gunude yeni yıl icersinde yer alan ilk haftayı kullan
Tablo 3 : Tarih ve Zaman Sabitleri.
1.1.3. Tarih Bicim Sabitleri
Sabit Değer Acıklama
vbGeneralDate 0 Sistem ayarlarındaki gosterim bicimi
vbLongDate 1 Uzun tarih gosterimi (June 26, 1943)
vbShortDate 2 Kısa tarih gosterimi (6/26/43)
vbLongTime 3 Uzun zaman gosterimi (3:48:01 Pm)
vbShortTime 4 Kısa zaman gosterimi (15:48)
Tablo 4 : Tarih Bicim Sabitleri.
1.1.4. Ceşitli Sabitler
Sabit Değer Acıklama
vbObjectError -2147221504 Kullanıcı tarafından tanımlanan hata tipi numaraları
Tablo 5 : Ceşitli Sabitler.
1.1.5. Mesaj Kutusu Sabitleri
Sabit Değer Acıklama
vbOkOnly 0 Sadece OK butonu goster
vbOkCancel 1 Ok ve İptal butonu goster
vbAbortRetryIgnore 2 Abort, Retry ve Ignore butonu goster
vbYesNoCancel 3 Yes, No ve Cancel butonu goster
vbYesNo 4 Yes ve No butonu goster
vbRetryCancel 5 Retry ve Cancel butonu goster
vbCritical 16 Kritik mesaj iconu goster
vbQuestion 32 Uyarı soru mesajı iconu goster
vbExclamation 48 Uyarı mesajı iconu goster
vbInformation 64 Bilgi mesajı iconu goster
vbDefaultButton1 0 Ilk buton varsayılan
vbDefaultButton2 256 Ikinci buton varsayılan
vbDefaultButton3 512 Ucuncu buton varsayılan
vbDefaultButton4 768 Dorduncu buton varsayılan
Tablo 6 : Mesaj Kutusu Sabitleri.
1.1.6. Mesaj Kutusu Cevap Sabitleri
Sabit Değer Acıklama
vbOk 1 Ok butonu tıklandı
vbCancel 2 Cancel butonu tıklandı
vbAbort 3 Abort butonu tıklandı
vbRetry 4 Retry butonu tıklandı
vbIgnore 5 Ignore butonu tıklandı
vbYes 6 Yes butonu tıklandı
vbNo 7 No butonu tıklandı
Tablo 7 : Mesaj Kutusu Cevap Sabitleri.
1.1.7. String Cevap Sabitleri
Sabit Değer Acıklama
vbCr Chr(13) -
vbCrLf Chr(13) & Chr(10) -
vbFormFeed Chr(12) Form Besleme
vbLf Chr(10) Satır Besleme
vbNewLine Chr(13) & Chr(10) veya Chr(10) Yeni Satır
vbNullChar Chr(0) 0 değerine sahip karakter
vbNullString - “”
vbTab Chr(9) Horizantal Tab
vbVerticalTab Chr(11) Vertical Tab
Tablo 8 : String Cevap Sabitleri.
1.1.8. Durum Sabitleri
Sabit Değer Acıklama
vbTrue -1 Doğru
vbFalse 0 Yanlış
Tablo 9 : Durum Sabitleri.
1.1.9. Karşılaştırma Sabitleri
Sabit Değer Acıklama
VbBinaryCompare 0 Binary Karşılaştırma
VBTextCompare 1 Metin Karşılaştırma
VBDataBaseCompare 2 Veri Tabanı Karşılaştırması
Tablo 10 : Karşılaştırma Sabitleri.
1.1.10. Değişken Tipi Sabitleri
Sabit Değer Acıklama
vbEmpty 0 Tanımsız data
vbNull 1 Gecerli data icermeyen
vbInteger 2 Integer
vbLong 3 Long
vbSingle 4 Single
vbCurrency 6 Currency
vbDate 7 Date
vbString 8 String
vbObject 9 Object
vbError 10 Error
vbBoolean 11 Boolean
vbVariant 12 Variant
vbDataObject 13 Data object
vbDecimal 14 Decimal
vbByte 15 Byte
vbArray 16 Array
Tablo 11 : Değişken Tipi Sabitleri.
1.1.11. Surucu Tipi Sabitleri
Sabit Değer Acıklama
Unknown 0 Tanımlanmamış surucu
Removable 1 Tum taşınabilir medya aygıtları. Icerisinde disket suruculeri de vardır
Fixed 2 Sabit diskler
Remote 3 Network suruculeri
CDROM 4 CdRom surucusu
RamDisk 5 RAM uzerinde yer alan sanal disk alanı
Tablo 12 : Surucu Tipi Sabitleri.
1.1.12. Dosya Ozelliği Sabitleri
Sabit Değer Acıklama
Normal 0 Normal dosya
ReadOnly 1 Salt okunur
Hidden 2 Gizli
System 4 Sistem dosyası
Directory 16 Dizin
Archive 32 Arşiv
Alias 1024 Link veya kısayol
Compressed 2048 Sıkıştırılmış dosya
Tablo 13 : Dosya Ozelliği Sabitleri.
1.1.13. Dosya Girdi Cıktı Sabitleri
Sabit Değer Acıklama
ForReading 0 Dosyayı sadece okuma icin ac. Bu tip acılan dosyaya yazılamaz.
ForWriting 1 Dosyayı yazma icin ac. Eğer bu dosya daha onceden varsa uzerine yazar.
ForAppending 8 Dosyayı yazmak icin acar ve sonuna yazar
Tablo 14 : Dosya Girdi Cıktı Sabitleri.
1.1.14. Ozel Dizin Sabitleri
Sabit Değer Acıklama
WindowsFolder 0 Windowsun kurulu olduğu dizin
SystemFolder 1 Fontların ve suruculerin bulunduğu sistem dizini
TemporaryFolder 2 Temprorary dizini
Tablo 15 : Ozel Dizin Sabitleri.
1.2. Operatorler
Değişkenlerimiz arasında işlemler yaptırabiliriz. Bu işlemler icin operator dediğimiz işaretleri kullanırız. Bu operatorler bildiğiniz matematiksel operatorlerdir.

Aritmetik Karşılaştırma Lojik
Acıklama Sembol Acıklama Sembol Acıklama Sembol
Ust Alma ^ Eşitlik = Lojik Zıtlık Not
Cıkarma - Eşitsizlik Lojik ve And
Carpma * Kucuktur < Lojik veya Or
Bolme / Buyuktur > Lojik ozel veya Xor
Integer Bolme \ Kucuk Eşittir = Lojik icerme Imp
Toplama + Obje Eşdeğeri Is
Metinsel Birleştirme &
Tablo 16 : Operatorler.

>
ado ile yapılacak bir listeleme veya arama işlemi icin gereken kısa işlem acıklaması burada
orneğin bir stok kartında bugune ait cari hesapları gormek istiyorsanız şu kodu yazmak en akıllıcası sql ile ado cakışmalarını onler
ado ile yapılmıştır
1-
adodc1.recordset.filter="cari_tarih='" & cdate(date) & " ' "
{listeleme alanı orneğin
list1.additem adodc1.recordset.fields("cari_adi").value & ""

NOT:Eğer Sadece İlk Kayıdı Goruyorsanız Şu İşlemi Yapmanız Yeterli Olacaktır
2-
prublic sub bastan_sona()
do
doevents
adodc1.recordset.filter="cari_tarih=' " & cdate(date) & " ' "
{listeleme alanı orneğin
list1.additem adodc1.recordset.fields("cari_adi").value & ""
adodc1.recordset.movenext
loop until adodc1.recordset.eof
adodc1.recordset.movefirst
end sub
//Her ikiside gecerlidir
Fakat Yuzlerce Kaydınız var size 1 metindeki kodu onereceğim


Devamı Gelecek...
__________________