본문 바로가기

전체 글165

[꿀팁] Google 문서를 이용한 음성(소리)를 텍스트로 무료 변환하기 1. 구글 Chrome창을 열어서 Google 로그인을 합니다. 2. 우측 상단의 바둑판 모양의 아이콘을 클릭합니다. 3. "문서" 아이콘을 클릭하면 구글문서 로 이동합니다. 4. + 모양을 클릭하여 새 문서를 만들어 줍니다. 5. "도구"에서 "음성 입력"을 눌러줍니다. 6. 마이크 모양을 클릭해서 음성을 텍스트로 변환합니다. ※ 주의할점으로 컴퓨터의 다른 작엄을 하게되면 기능이 꺼지게 되니 주의 하세요 2020. 8. 29.
[vb.net] 컴파일 시 파일 버전 자동 증가 ' 어셈블리의 버전 정보는 다음 네 가지 값으로 구성됩니다. ' ' 주 버전 ' 부 버전 ' 빌드 번호 ' 수정 버전 ' ' 모든 값을 지정하거나 아래와 같이 '*'를 사용하여 빌드 번호 및 수정 번호가 자동으로 ' 지정되도록 할 수 있습니다. ' ​ ※ AssemblyVersion의 마지막 자리를 "*" 변경 하면 빌드 시 마다 버전이 증가 한다. 2020. 8. 29.
[vb.net] 동적 컨트롤 삽입 시 매소드를 생성하지 않고 익명 매소드를 이용하여 이벤트 처리하는 방법 Public Class Form1 Dim rnd As New Random Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim Parent As New PictureBox '// 새로운 픽쳐박스 생성 Parent.Size = New Size(Me.ClientRectangle.Width, Me.ClientRectangle.Height) '// 폼 내부사이즈만큼 Parent.Location = New Point(0, 0) '// 시작위치는 0 Parent.SizeMode = PictureBoxSizeMode.Zoom '// 이미지 사이즈 모드 줌 Me.Controls.Add(Parent) '// 픽쳐박스 삽입 Dim .. 2020. 8. 26.
[vb6.0/vba] MKDIR 폴더 생성 / 폴더 유무 / 파일 유무 확인하는 방법 윈도우의 폴더를 생성하는 함수는 MKDir 이다. 폴더 생성은 fPath = "C:\abc\" If Len(Dir(fPath, vbDirectory)) = 0 Then MKDir fPath 해당 폴더가 있는지 체크하는 방법은 If Len(Dir(fPath, vbDirectory)) = 0 Then End 파일이 있는지 체크하는 방법은 sFile = "경로.xlsx" If Len(Dir(fPath & sFile)) = 0 Then End 엑셀 매크로&VBA 바이블:실무에 최적화된 엑셀 사용서, 한빛미디어 40,500원 (포스팅일기준) 엑셀 2016 매크로&VBA 무작정 따라하기:기본+회사실무, 길벗 19,800원 (포스팅일기준) 엑셀 2016 매크로 & VBA 바이블:회사에서 필요한 코드는 모두 있다!, .. 2020. 8. 26.
[vb6.0/vba] JsonParser '' ' VBA-JSON v2.3.0 ' (c) Tim Hall - https://github.com/VBA-tools/VBA-JSON ' ' JSON Converter for VBA ' ' Errors: ' 10001 - JSON parse error ' ' @class JsonConverter ' @author tim.hall.engr@gmail.com ' @license MIT (http://www.opensource.org/licenses/mit-license.php) '' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' ' ' Based originally on vba-json (with extensive chan.. 2020. 8. 21.
[vb.net] DataGridView 열 및 행 크기 조정(Column and Row Resizing) DataGridView 의 기본 모양은 DataGrid 보다 약간 개선되었습니다. 그러나 몇 가지 빠른 수정을 통해 크게 개선 할 수 있습니다. 한 가지 문제는 DataGridView가 내용에 관계없이 모든 열에 기본 표준 너비를 제공한다는 것입니다. 결과적으로 그림 15-1에서 바인딩 된 그리드의 초기 모양은 완벽하지 않으며 ModelName 및 Description 열이 포함 된 데이터에 비해 너무 작습니다. 다행히 DataGridView에 내장 된 몇 가지 강력한 자동 크기 조정 기능을 사용할 수 있습니다. 첫 번째 결정은 전체 컨트롤에 대한 크기 조정을 제어할지 아니면 개별 열을 미세 조정할지 여부입니다. 다음 섹션에서는 옵션을 살펴 봅니다. 전체 그리드에 대한 자동 크기 조정 모드 설정 가장 간.. 2020. 8. 21.
[vb.net] 글꼴 크기를 포함하여 양식의 크기가 조정될 때 모든 컨트롤의 동적 크기 조정 및 위치 조정 Visual Basic 프로그래밍 기초:프로그래밍 경험이 전혀 없는 초보자를 위한 가이드 북 COUPANG www.coupang.com A complete Form code example: Public Class Form1 Dim rs As New Resizer Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load rs.FindAllControls(Me) End Sub Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize rs.ResizeAllControls(Me) End Sub End Class The complete class code.. 2020. 8. 21.
[vb.net] vb.net 에서 동적 컨트롤에 익명매소드를 이용해서 이벤트 걸기 익명매소드(이름이 없는 매소드) 1. 객체 생성과 동시에 구현할 때 2. 일회성으로 사용할때 ​ 사용 예:) AddHandler CB.CheckedChanged, Sub(S, O) MsgBox(S.tag) 아래 프로시저를 실행 후 Private Sub LoadTimer_Tick(sender As Object, e As EventArgs) Handles LoadTimer.Tick LoadTimer.Stop() Dim T As String Dim URL As String = "https://section.blog.naver.com/ajax/DirectoryList.nhn" With CreateObject("WinHttp.WinHttpRequest.5.1") .Open("GET", URL) .SetReques.. 2020. 8. 10.
[vb.net] Visual Basic에서 예외 기록 / LOG 기록 방법: Visual Basic에서 예외 기록 / LOG 기록 2015. 07. 20. 읽는 데 2분 걸림 My.Application.Log 및 My.Log 개체를 사용하여 애플리케이션에서 발생하는 예외에 대한 정보를 기록할 수 있습니다. 이 예제에서는 My.Application.Log.WriteException 메서드를 사용하여 명시적으로 catch하는 예외 및 처리되지 않은 예외를 기록하는 방법을 보여 줍니다. 추적 정보를 기록하려면 My.Application.Log.WriteEntry 메서드를 사용합니다. 자세한 내용은 WriteEntry을 참조하세요. 처리된 예외를 기록하려면 / LOG 기록 1. 예외 정보를 생성하는 메서드를 만듭니다. Public Sub ExceptionLogTest(ByVal .. 2020. 7. 22.
[vb6.0/vba] vba를 이용한 네이버 블로그 공감하기 Sub program1472() Dim URL As String, Cookie As String Dim T As String Dim blogId As String, logNo As String blogId = "블로그 아이디" logNo = "게시글 번호" Cookie = "NID_AUT=쿠키(NID_AUT)값; " Cookie = Cookie & "NID_SES=쿠키(NID_SES) 값; " URL = "https://blog.like.naver.com/v1/search/contents?suppress_response_codes=true" URL = URL & "&callback=jQuery32108679104131702924_" & UNIX_TIME URL = URL & "&q=BLOG%5B" & b.. 2020. 7. 20.
[vb.net] DataTable 날짜를 그룹으로 설정하고 그룹별 합계내기 지식인 질문에 대한 답변내용입니다. https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=1040103&docId=362704813 비주얼베이직 vb.net 질문드려요 textbox 검색 기능 사진과 같이 왼쪽 textbox 내용을 기간별로 검색해서 오른쪽 텍스트박스에 출력하게끔 하려면 어떻게 해야 될까요??그리고 출력된 내용에서 10/2020-07-0310/2020-0... kin.naver.com ​ ​ ​ Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim D As New DataTable, R As DataRow D.Columns.Add.. 2020. 7. 16.
서울교차로(newspaper.seoulkcr.com)구인 크롤링 서울교차로(newspaper.seoulkcr.com)구인 크롤링을 해보자 지식인 답변내용입니다. Private Sub program1472_com() Dim elem As Object Dim oHTML As Object Set oHTML = CreateObject("htmlfile") Dim URL As String, Cookie As String, T As String, P As Integer Cells.Clear Do P = P + 1 URL = "http://newspaper.seoulkcr.com/paper?kcrid=kangnamkcr&cateid=0001&page=" & P With CreateObject("WinHttp.WinHttpRequest.5.1") .Open "GET", URL .S.. 2020. 7. 16.
[vb.net] DataTable Sort Dim dt As New DataTable() dt.Columns.AddRange(New DataColumn(3) {New DataColumn("Id"), New DataColumn("Name"), New DataColumn("Sid", GetType(Integer)), New DataColumn("Age", GetType(Integer))}) dt.Rows.Add("1", "xxx", 19, 20) dt.Rows.Add("2", "yyy", 18, 20) dt.Rows.Add("3", "zzz", 18, 20) dt.Rows.Add("4", "aaa", 1, 20) dt.Rows.Add("5", "aaa", 18, 20) dt.DefaultView.Sort = "Sid DESC" Dim dtResult.. 2020. 7. 15.
[MySQL] AUTO_INCREMENT 값을 초기화 후, 테이블 안의 모든 데이터의 ID값을 재조정 AUTO_INCREMENT 값을 초기화 하려면, 아래와 같은 쿼리를 실행시켜주면 됩니다. ALTER TABLE [테이블명] AUTO_INCREMENT=1; 하지만 이 경우에는, 테이블에 새로 시작할 값보다 높은 값이 있으면 안됩니다. 아래는 AUTO_INCREMENT 값을 초기화 후, 테이블 안의 모든 데이터의 ID값을 재조정하는 방법입니다. ALTER TABLE [테이블명] AUTO_INCREMENT=1; SET @COUNT = 0; UPDATE [테이블명] SET [AUTO_INCREMENT 열 이름] = @COUNT:=@COUNT+1; 위 쿼리문은 현재 모든 데이터 ID값을 1부터 재조정하고, 다음 인덱스 값을 [마지막 행번호 + 1] 로 정하는 명령어입니다. 2020. 7. 15.
[VB.NET] 폼(Form) 사이즈 고정(Size fix) 방법1:) Me.FormBorderStyle = FormBorderStyle.FixedSingle ​ 방법2:) Private Sub fMain_Resize(sender As Object, e As EventArgs) Handles Me.Resize Me.Size = New Size(800, 600) End Sub ​ 방법3:) 2020. 7. 14.
[vb6.0/vba] WinHttp로 사이트 파싱시 한글깨질경우 엔코딩 찿는 방법 Sub program1472() Dim B() As Byte, T As String, Cookie As String, Referer As String, URL As String, Host As String Cookie = "PHPSESSID=d4r5mc7clu18cd1bhc0dfm5v86; " URL = "사이트 주소" Referer = "사이트 이전주소" Host = "Host 주소" With CreateObject("WinHttp.WinHttpRequest.5.1") .Open "GET", URL .SetRequestHeader "Host", Host .SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:50.0) Gecko/2010010.. 2020. 7. 14.
[vb.net] 네이버 QR Code 단축 URL 생성(https/443) Private Function nhnQRLink(ByVal nhnID As String, ByVal nhnCookie As String, ByVal link As String) As String Dim T As String = "" Try 'ServicePointManager.Expect100Continue = True 'ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls Or SecurityProtocolType.Tls11 Or SecurityProtocolType.Tls12 Or SecurityProtocolType.Ssl3 ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls1.. 2020. 7. 2.
[vb6.0/vba] VBScript 를 이용한 URL Encode/Decode Private JSEngine As Object Public Function URLEncode(ByVal value As String) If JSEngine Is Nothing Then SetJSEngine value = JSEngine.CodeObject.encodeURIComponent(value) value = Replace(value, "'", "%27") URLEncode = Replace(value, """", "%22") End Function Public Function UrlDecode(ByVal value As String) If JSEngine Is Nothing Then SetJSEngine value = Replace(value, "+", " ") UrlDecode = JSEngi.. 2020. 6. 30.

티스토리툴바