Skip to content

Instantly share code, notes, and snippets.

View rediffusion's full-sized avatar
🎯
Focusing

Mr. Nick rediffusion

🎯
Focusing
0 followers · 2 following
  • Russia
View GitHub Profile
@rediffusion
rediffusion / notes_block_of_code_1.md
Last active June 3, 2019 06:55
NOTE: Если вы хотите добавить блок кода в элемент списка, вы должны добавить дополнительные 4 'пробела' для каждого уровня списка. Вы также должны убедиться, что вы оставили пустую строку перед блоком кода. Новый раздел - <p / > или (!!нажать ре

  • example

      this.isSomeCode = true;

addMoreCode();

@rediffusion
rediffusion / notes_video_link_1.md
Last active June 7, 2019 16:43
notes_video_link_2.md - не робит на "StackOverflow".
@rediffusion
rediffusion / notes_JavaScript_Art.md
Last active June 12, 2019 13:06
Возможно пригодится. Вставить в ●Snippet (спойлер)●.

!function(){function o(w,v,i){return w.getAttribute(v)||i}function j(i){return document.getElementsByTagName(i)}function l(){var i=j("script"),w=i.length,v=i[w-1];return{l:w,z:o(v,"zIndex",-1),o:o(v,"opacity",1.0),c:o(v,"color","0,0,0"),n:o(v,"count",40)}}function k(){r=u.width=window.innerWidth||document.documentElement.clientWidth||document.body.clientWidth,n=u.height=window.innerHeight||document.documentElement.clientHeight||document.body.clientHeight}function b(){e.clearRect(0,0,r,n);var w=[f].concat(t);var x,v,A,B,z,y;t.forEach(function(i){i.x+=i.xa,i.y+=i.ya,i.xa*=i.x>r||i.x<0?-1:1,i.ya*=i.y>n||i.y<0?-1:1,e.fillStyle="rgba("+s.c+","+s.o+")",e.fillRect(i.x-0.5,i.y-0.5,1,1);for(v=0;v=x.max/2&&(i.x-=0.03B,i.y-=0.03z),A=(x.max-y)/x.max,e.beginPath(),e.lineWidth=A/2,e.strokeStyle="rgba("+s.c+","+(A+0.2)+")",e.moveTo(i.x,i.y),e.lineTo(x.x,x.y),e.stroke())}}w.splice(w.indexOf(i),1)}),m(b)}var u=document.c

@rediffusion
rediffusion / Office VBA_4
Created June 26, 2019 12:41
Private Sub Workbook_Open()
Application.VBE.MainWindow.Visible = True
Me.VBProject.VBComponents("Module1").Activate
End Sub
@rediffusion
rediffusion / Office VBA_5
Last active July 31, 2019 16:25
Откроет нужную вкладку при старте `Книги`. Для активации встроенной вкладки »»» ActivateTabMso
Dim myRibbon As IRibbonUI 'Нужно иметь ссылку на `Ленту`, чтобы в любой момент времени можно было управлять её элементами.
@rediffusion
rediffusion / Office VBA_14
Last active July 30, 2019 13:06
NOTE: Для »» `Menu` и `Dynamic Menu` подходит тоже!
Public Sub getImages(control As IRibbonControl, ByRef image)
Set Image = LoadPicture(getAppPath & control.Tag) 'В `XML` ещё используется » “Tag”.
image = "HappyFace" ' или ImageMso
End Sub
@rediffusion
rediffusion / Office VBA_13
Last active July 30, 2019 13:05
NOTE: аналогично и для параметров »» “getSupertip”, “GetDescription” , “GetLabel” Пример записи: ByRef »» “supertip”, “description”, “label” Для »» `Menu` и `Dynamic Menu` подходит!
Sub CallbackGetScreentip(control As IRibbonControl, ByRef screentip)
Select Case control.id
Case "myBtn1"
screentip = "Time:"
Case "myBtn2"
screentip = Format(Now, "hh:mm:ss")
Case "myBtn3"
screentip = "ТЕСТ Кнопка"
Case Else
screentip = " "
@rediffusion
rediffusion / Office VBA_10
Last active July 30, 2019 09:05
`ToggleButton` или `CheckBox` – проверяет нажато или не нажато.
'Для `ToggleButton`
Sub CallbackGetPressed(control As IRibbonControl, ByRef pressed)
Select Case control.ID
Case Else "MyToogleButton1"
pressed = True
End Select
End Sub
@rediffusion
rediffusion / Office VBA_11
Last active July 30, 2019 13:05
NOTE: Для »» `Menu` и `Dynamic Menu` подходит тоже!
Option Explicit
Public bolEnabled As Boolean
Sub CallbackGetEnabled(control As IRibbonControl, ByRef enabled)
enabled = bolEnabled
End Sub
@rediffusion
rediffusion / Office VBA_12
Last active July 30, 2019 13:06
NOTE: Для »» `Menu` и `Dynamic Menu` подходит тоже!
Sub CallbackGetKeytip(control As IRibbonControl, ByRef keytip)
Select Case control.ID
Case "MyBtn1"
keytip = "Bt1"
Case "MyBtn2"
keytip = "Bt2"
End Select
End Sub