본문 바로가기
반응형

분류 전체보기4681

TreeView구현방법 TreeView는 계층적 구조를 갖는 데이터를 보기 좋게 표현하는데 편리하다. Button1, TextBox1을 폼에 만들어 넣는다. TreeView 하나를 추가하고 그 이름을 [Tree]라고 하자. [예제1] Tree에 데이터 싣기. 폼이 로드될 때 데이터도 같이 싣는다. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Tree.PathSeparator = "-" Tree.ShowPlusMinus = True Tree.Nodes.Clear() Tree.Nodes.Add("대한민국") '방법1 Tree.Nodes(0).Nodes.Add("경기도") Tree.Nodes(0.. 2007. 11. 21.
mdb 파일 크리스탈리포트(CrystalReport)로 인쇄하기 MDB파일을 연결하여 CrystalReport (크리스탈리포트)로 인쇄하는 방법 [CODE] Dim rs_tmp As Recordset Dim e As Currency prt.Execute "Delete from tprint" Set rs_tmp = prt.OpenRecordset("tprint", dbOpenDynaset) For e = 1 To ss1.MaxRows ss1.Row = e rs_tmp.AddNew ss1.Col = 1: rs_tmp!C000 = ss1.Text ' 해당 Spread를 지정하여 인쇄 ss1.Col = 2: rs_tmp!C001 = ss1.Text ss1.Col = 3: rs_tmp!C002 = ss1.Text ss1.Col = 4: rs_tmp!C003 = ss1.Text.. 2007. 11. 21.
[연습] 디비에 연결하여 Spread 컴퍼넌트에 출력하기 [CODE] Private Sub TestSQL() ' 디비연결 테스트 Dim i As Integer Dim SQL As String Dim rs_tmp As New ADODB.Recordset SQL = "select * from t_imp_tt where gubun ='01'" Set rs_tmp = Nothing: Call SetRST(rs_tmp, SQL) Call SpreadClear(ss1) If rs_tmp.EOF Then MsgBox "검색된 데이터가 없습니다", , "" rs_tmp.Close: Set rs_tmp = Nothing Exit Sub Else rs_tmp.MoveLast rs_tmp.MoveFirst ss1.MaxRows = rs_tmp.RecordCount End If F.. 2007. 11. 19.
신기하네 3D 바탕화면 바탕화면 정리를 이런식으로?? 석사논문을 위해서 만들었다고 한다 2007. 11. 18.
반응형

티스토리툴바