Merhaba Hocalar; Aşağıdaki kodları vb. net 2008'e uyarlamam lazım yardım edene şimdiden teşekkürler, private void dataGrid1_Paint { int row = TopRow ; int yDelta = dataGrid1. GetCellBounds(row, 0). Height + 1; int y = dataGrid1. GetCellBounds(row, 0). Top + 2; CurrencyManager cm = this. BindingContext ; while(y < dataGrid1. Height - yDelta && row < cm. Count) { //get & draw the header text... string text = string. Format("row ", row); e. Graphics. DrawString(text, dataGrid1. Font, new SolidBrush , 12, y); y += yDelta; row++; } } Kod Çıktısı: Aşk hiçbir zaman sylenemeyen, sylenemediği için BÜYÜK olan, sevgilinin adını dile düşürmemek için sevginin adını anmayan ve sevginin adını anmadan kendi dünyasında onu çoğaltan bi' duygudur...

Private Sub dataGrid1_Paint Dim row As Integer = TopRow Dim yDelta As Integer = dataGrid1. GetCellBounds(row, 0). Height + 1 Dim y As Integer = dataGrid1. GetCellBounds(row, 0). Top + 2 Dim cm As CurrencyManager = DirectCast(Me. BindingContext(dataGrid1. DataSource, dataGrid1. DataMember), CurrencyManager) While y < dataGrid1. Height - yDelta AndAlso row < cm. Count 'get & draw the header text... Dim text As String = String. Format("row ", row) e. Graphics. DrawString(text, dataGrid1. Font, New SolidBrush , 12, y) y += yDelta row += 1 End While End Sub denesene bir hocam

http://www.developerfusion.com/tools/convert/csharp-to-vb/ şurdan cevirebilirsin

Hocam bu işte bir eksiklik var:) ncelikle db yanlış anlamadıysam samples adventure works? Eğer yle ise şunu indirip kurmalısın; http://msftdbprodsamples.codeplex.com/releases/view/55926 daha sonra db ayarlarını yapıp forma bir data grid ekleyip kodlarıda bu gride gmmen yeterli olacaktır.. edit büdüt1 pardon yanlış anlamışım seni ve yukarıdakileri yazmışım:):) edit büdüt2:) http://www.syncfusion.com/faq/windowsforms/faq_c44c.aspx?print=896 burdan sanırım:) Paslanmış bir uygulama geliştirici.. #AnalistŞart

: rappermcs bunu yazdı: Hocam bu işte bir eksiklik var:) ncelikle db yanlış anlamadıysam samples adventure works? Eğer yle ise şunu indirip kurmalısın; http://msftdbprodsamples.codeplex.com/releases/view/55926 daha sonra db ayarlarını yapıp forma bir data grid ekleyip kodlarıda bu gride gmmen yeterli olacaktır.. edit büdüt:) http://www.syncfusion.com/faq/windowsforms/faq_c44c.aspx?print=896 burdan sanırım:) Hocam database'i mssql 2008'de hazırladım o dediğin ne bilmiyorum :D hacı gerekli açıklamayı diğer postumda yaptım kusura bakma:) samples adventure works sql için sağlam bir rnek database microsoftun hazırladığı:) Paslanmış bir uygulama geliştirici.. #AnalistŞart

Yukarıdaki hataları veriyor hocam :/ Aşk hiçbir zaman sylenemeyen, sylenemediği için BÜYÜK olan, sevgilinin adını dile düşürmemek için sevginin adını anmayan ve sevginin adını anmadan kendi dünyasında onu çoğaltan bi' duygudur...

Hocam benim amacım tabldaki RowHeader'a satır sayısını yazdırmak resimde olduğu gibi ve araştırırken verdiğim kodları buldum C# için yazılmış olan ama bana vb. net için lazım byle birşey. İllaki yukarıdaki kodların dnüştürülmesi gerekmiyor aynı işi grecek farklı yntemlere de açığım :D Aşk hiçbir zaman sylenemeyen, sylenemediği için BÜYÜK olan, sevgilinin adını dile düşürmemek için sevginin adını anmayan ve sevginin adını anmadan kendi dünyasında onu çoğaltan bi' duygudur...

: Hocam bu işte bir eksiklik var:) ncelikle db yanlış anlamadıysam samples adventure works? Eğer yle ise şunu indirip kurmalısın; http://msftdbprodsamples.codeplex.com/releases/view/55926 daha sonra db ayarlarını yapıp forma bir data grid ekleyip kodlarıda bu gride gmmen yeterli olacaktır.. edit büdüt:) http://www.syncfusion.com/faq/windowsforms/faq_c44c.aspx?print=896 burdan sanırım:) Hocam database'i mssql 2008'de hazırladım o dediğin ne bilmiyorum :D Aşk hiçbir zaman sylenemeyen, sylenemediği için BÜYÜK olan, sevgilinin adını dile düşürmemek için sevginin adını anmayan ve sevginin adını anmadan kendi dünyasında onu çoğaltan bi' duygudur...

Private Sub DataGridView2_CellPainting Handles DataGridView2. CellPainting If e. ColumnIndex = -1 And e. RowIndex >= -0 Then Dim dgv As DataGridView = sender Dim font As Font = dgv. RowHeadersDefaultCellStyle. Font e. PaintBackground e. PaintContent Using brush As New SolidBrush e. Graphics. DrawString( _ e. RowIndex + 1. ToString, _ font, _ brush, _ e. CellBounds. Left, _ e. CellBounds. Top) End Using e. Handled = True End If Şyle birşey buldum işimi grdü sorun halledildi hocam cevap atan herkese teşekkürler... Aşk hiçbir zaman sylenemeyen, sylenemediği için BÜYÜK olan, sevgilinin adını dile düşürmemek için sevginin adını anmayan ve sevginin adını anmadan kendi dünyasında onu çoğaltan bi' duygudur...

http://converter.telerik.com/ Meşhur. net componentleri hazırlayan telerik in sevdiğim dnüştürücüsü :)