C# Kodlarını Visual Basic .NET 2008'E Uyarlayabilecek Var Mı?

Tahribat.com Forumları
line

C#, Asp.Net, .Net Core
line

C# Kodlarını Visual Basic .NET 2008'E Uyarlayabilecek Var Mı?

27/May/11 01:41 Kısayol Şikayet Özel Mesaj

Anakroniq

Kayıt Tarihi: 01/Mayıs/2008

Merhaba Hocalar;

Aşağıdaki kodları vb.net 2008'e uyarlamam lazım yardım edene şimdiden teşekkürler,

private void dataGrid1_Paint(object sender, System.Windows.Forms.PaintEventArgs e)

{

     int row = TopRow();

     int yDelta = dataGrid1.GetCellBounds(row, 0).Height + 1;

     int y = dataGrid1.GetCellBounds(row, 0).Top + 2;



     CurrencyManager cm = (CurrencyManager) this.BindingContext[dataGrid1.DataSource, dataGrid1.DataMember];

     while(y < dataGrid1.Height - yDelta && row < cm.Count)

     {

          //get & draw the header text...

          string text = string.Format("row{0}", row);

          e.Graphics.DrawString(text, dataGrid1.Font, new SolidBrush(Color.Black), 12, y);

          y += yDelta;

          row++;

     }

}

Kod Çıktısı:

Aşk hiçbir zaman söylenemeyen, söylenemediğ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...

Alıntı yap

27/May/11 01:42

Kısayol

Şikayet

Özel Mesaj

Holyzone

Kayıt Tarihi: 13/Ekim/2008

Private Sub dataGrid1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs)
	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{0}", row)
		e.Graphics.DrawString(text, dataGrid1.Font, New SolidBrush(Color.Black), 12, y)
		y += yDelta
		row += 1
	End While

End Sub

denesene bir hocam

Alıntı yap

27/May/11 01:43 Kısayol Şikayet Özel Mesaj

FCN

Kayıt Tarihi: 28/Eylül/2007

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

şurdan cevirebilirsin

Alıntı yap
27/May/11 01:49 Kısayol Şikayet Özel Mesaj

rappermcs

Kayıt Tarihi: 04/Ekim/2002

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 gömmen 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.. ##

Alıntı yap
27/May/11 01:49 Kısayol Şikayet Özel Mesaj

Anakroniq

Kayıt Tarihi: 01/Mayıs/2008

Yukarıdaki hataları veriyor hocam :/

Aşk hiçbir zaman söylenemeyen, söylenemediğ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...

Alıntı yap
27/May/11 01:52 Kısayol Şikayet Özel Mesaj

Anakroniq

Kayıt Tarihi: 01/Mayıs/2008

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 gömmen 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 söylenemeyen, söylenemediğ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...

Alıntı yap
27/May/11 01:55 Kısayol Şikayet Özel Mesaj

Anakroniq

Kayıt Tarihi: 01/Mayıs/2008

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 böyle birşey. İllaki yukarıdaki kodların dönüştürülmesi gerekmiyor aynı işi görecek farklı yöntemlere de açığım :D

Aşk hiçbir zaman söylenemeyen, söylenemediğ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...

Alıntı yap
27/May/11 01:55 Kısayol Şikayet Özel Mesaj

rappermcs

Kayıt Tarihi: 04/Ekim/2002

Anakroniq bunu yazdı:
-----------------------------

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 gömmen 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.. ##

Alıntı yap

27/May/11 02:20

Kısayol

Şikayet

Özel Mesaj

Anakroniq

Kayıt Tarihi: 01/Mayıs/2008

Private Sub DataGridView2_CellPainting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) 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.ClipBounds, False)
            e.PaintContent(e.ClipBounds)
            Using brush As New SolidBrush( _
            dgv.RowHeadersDefaultCellStyle.ForeColor)
                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 gördü sorun halledildi hocam cevap atan herkese teşekkürler...

Aşk hiçbir zaman söylenemeyen, söylenemediğ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...

Alıntı yap

27/May/11 10:23 Kısayol Şikayet Özel Mesaj

SpArK

Kayıt Tarihi: 17/Temmuz/2005

http://converter.telerik.com/

Meşhur .net componentleri hazırlayan telerik in sevdiğim dönüştürücüsü :)

Alıntı yap

Toplam Hit: 1701 Toplam Mesaj: 10

Cevapla