낭만소방관

1. Browse...를 눌러 파일 선택2. 파일명을 클릭하면 미리보기 생성3. 확인을 누르면 슬라이드쇼 재생4. 취소를 누르면 폼 닫힘 남은 것1. 프로그램을 재실행하거나 컴퓨터를 재부팅해도 파일을 선택한 정보가 남는 것.2. 슬라이드쇼 창만 풀스크린으로 확대할 것.3. 이미지 변환 시 페이드 인/아웃 기능 -> 맨 마지막에. 어려움. Imports System.IO Public Class form1 Private Arrfiles As String() Private Sub btnBrowse_Click(sender As Object, e As EventArgs) Handles btnBrowse.Click Arrfiles = Nothing With OpenFileDialog1 .Filter = "Image..

새벽에 만든 화면보호기화면보호기가 작동하는 원리를 익힌 귀중한 30분다음 화면보호기는 사진 슬라이드 형식과 화면보호기 미리보기 아이콘 형성까지.

폼에 드래그하여 파일 주소를 따오는 코드유용할 듯. Imports System.IO Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.AllowDrop = True End Sub Private Sub Form1_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop Dim theFiles() As String = CType(e.Data.GetData("FileDrop", True), String()) For Each theFile As String In theFiles MsgBox(theFile) Next End S..

상용 도구툴에는 아마 기본으로 있을 법한 기능.리스트뷰에서 제목열을 클릭하면 정렬해준다. Private Sub lvview_ColumnClick(sender As Object, e As ColumnClickEventArgs) Handles lvView.ColumnClick '리스트뷰에서 제목열 클릭 시 정렬 If lvView.Columns(e.Column).ListView.Sorting = SortOrder.Descending Then lvView.Columns(e.Column).ListView.Sorting = SortOrder.Ascending ElseIf lvView.Columns(e.Column).ListView.Sorting = SortOrder.Ascending Then lvView.Colum..

저장할 폴더가 없으면 폴더를 생성하여파일명이 중복되면 끝에 _1 _2 와 같이 숫자를 늘려가면서 복사하는 코드 Private Sub C1Button2_Click(sender As Object, e As EventArgs) Handles C1Button2.Click '업로드 - 다른 이름으로 저장 Dim strDest As String = "W:\Scan\" '서버(다른 PC) 폴더명 - 수정할 것 Dim i As ListViewItem Dim strFolder As String Dim strFilename As String Dim strExtention As String Dim strFullName As String Dim FileName As String '저장할 폴더가 없으면 생성하기 If (Not ..

리스트뷰에서 항목을 선택하면 썸네일을 생성해주는 코드나름 애먹었던 코드다.PDF도 썸네일을 생성하고 싶은데 이건 아크로벳이 설치되어 있어야하는 모양. Public Function ThumbnailCallback() As Boolean '썸네일 이미지에 사용되는 함수 Return False End Function Private Sub lvView_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lvView.SelectedIndexChanged '리스트뷰에서 리스트 선택 시 썸네일 보여주기 Dim strFolder As String Dim strFilename As String Dim strExtention As String Dim strFil..

리스트뷰에 나열된 리스트를 선택하여'삭제' 버튼 누르면 선택된 리스트를 삭제해주는 코드. Private Sub C1Button4_Click(sender As Object, e As EventArgs) Handles C1Button4.Click '체크된 파일을 리스트에서 삭제 For Each i As ListViewItem In lvView.SelectedItems lvView.Items.Remove(i) Next i End Sub

어쩌다가 시작한 VB.Net아직 책도 안 오고 도구상자도 사용할 줄 몰라 무식하게 구글링 후 코딩 파일 불러오기 대화창에서 파일을 다중 선택하면리스트뷰에 폴더, 파일명, 확장자, 파일크기 등으로 나누어서 출력해주는 코드이미지 파일과 PDF파일만 선택하도록 필터링되어있다. 코드는 내가 짰지만 파일은 나의 것이 아니기에 코드만 업로드. Private Sub C1Button1_Click(sender As Object, e As EventArgs) Handles C1Button1.Click Dim Files As String Dim v(4) As String Dim fileInfo As FileInfo Dim i As Integer OpenFileDialog1().ShowDialog() '선택한 파일명을 배열에..

​ 어쩌다보니 업그레이드. 좋은 일만 생기기를.

각 열을 오름차순으로 정렬하면어느 열을 기준으로 정렬했는지 감지해Rank를 출력하는 사용자정의함수